(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
        (1 - 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
            r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
           (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
             24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                  E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                 (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
         3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
           ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/
            r^3)*(-1 + 3*Sin[theta]^2))*
        ((-1.*^-12*((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (1 - 3*Sin[theta]^2))^2)/
          (-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)^2 - 
         (1.*^-6*(-5.*^-7*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                (-1 + 3*Cos[2*theta]) + (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
                      E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                  (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                  (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/2)^2 + 
            (-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2)*((3*((21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                 (21*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                 (9*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
                 (2*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
                   (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                   16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r)*Sin[theta]^2)/4 + 
              3*((3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^5 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
               (1 - 3*Sin[theta]^2))))/
          (-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)^2))/
       Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(21/(E^r^2*r) - 
           (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
           (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
           (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
             24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                  E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                 (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
         3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
           ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/
            r^3)*(-1 + 3*Sin[theta]^2))*
        ((5.*^-7*(7.5*^-7*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
                2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
             ((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r))/4 + 3*((3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^
                 2)) + 3.*^-6*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^2)*
             ((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r))/4 + 3*((3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^
                 2)) - (7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
              3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-3 + Csc[theta]^2))*
             ((3*((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
                 (105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 - (48*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^3 - (3*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                     E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
                   (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                   16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r))/4 + 3*((-15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^6 + (15*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                (6*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*(-3 + 
                Csc[theta]^2))))/(7.5*^-7*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^2 - 
         (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
            7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
                  E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
                2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
              (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           ((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                   4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
              Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)) + 
         (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
            7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
                  E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
                2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
              (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - 
            (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2))/2))/(r*(7.5*^-7*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
           (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
           (1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 
            Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6.*^-6*Cos[theta] + 
              1.*^-6*Cot[theta]*Csc[theta])))/
          (r*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) + 
   (-1/2*(-3.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
          (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
            (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
            r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
         Cos[theta]*Sin[theta]*((1.5*^-6*Cos[theta]*Sin[theta]*
            (((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
               (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
                 (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2)*(1 - 3.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
                     E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                  (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                  (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4))*
            (r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) + 
                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
               (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
               ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
           (r*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                 3*Sin[theta]^2)))*(2 - 9.*^-12*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
            (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
              (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
            (1.8*^-11*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)^2 + (1 + 7.5*^-7*(21/(E^r^2*r) - 
                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2)*(2 - 3.*^-6*r*(-15/(E^r^2*r^2) + 
                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2) - 
             3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                    E^r^2))/r^3)*(4 - 3.*^-6*r*(-15/(E^r^2*r^2) + 
                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                Cos[2*theta] + 3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
               7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
                     E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                 (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                 (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2) + 
             6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
              (Cos[2*theta] - 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^4)))/
           ((-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
             1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
               3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
            (-8.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
                      E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) - 
                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
                4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
                      E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 3*
                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r) - 
                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-6/(E^r^2*r) + 
                 (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((3*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                  ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
                  3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                    (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                    ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2))/r^3) - 7.5*^-7*(21/(E^r^2*r) - 
                    (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                    (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                        E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*Sin[theta]^2))/2) + 
             (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
                       E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
                 ((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                    (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                        E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
               3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(3/(E^r^2*r) - 
                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 6.*^-6*(21/(E^r^2*r) - 
                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 
                 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r) - 
                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^2)^2*Sin[2*theta]^2)))/
           (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
            (((4.5*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)*((21*((4*r^3)/E^r^2 - (2*r^5)/
                      E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                  (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                  (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2 + 
                3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^3)*(2 - 0.000012*(3/(E^r^2*r) - 
                    (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                    ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2))/r^3) + 2.*^-6*(-6/(E^r^2*r) + 
                    (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                    (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))/r^2) + 1.5*^-6*(21/(E^r^2*r) - 
                    (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                    (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                        E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*Sin[theta]^2) + 
                ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                  (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2)*(-2 + 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                       (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
                       E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
                  3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
                        E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                       r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                      (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r) - 
                    (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                    (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                        E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
                   (-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                     r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                       r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                    (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                       4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                    (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                       24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                         (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
                          (-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
                       E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2) + 1.*^-6*
                 (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^2)*((-3*((21*((4*r^3)/E^r^2 - (2*r^5)/
                         E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                        r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                     (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                        4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                     (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                        24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*
                         (-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
                        E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                       48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/
                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                         6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                         2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/2 + 
                  r*(3*((-15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
                      (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)))/r^5 - (6*((24*r)/E^r^2 - (88*r^3)/
                          E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                        (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                        16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                        r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3) - (3*((-105*((4*r^3)/E^r^2 - 
                          (2*r^5)/E^r^2))/r^6 + (105*((12*r^2)/E^r^2 - 
                          (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/
                        r^5 - (48*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/
                          E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                          r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 + 
                          (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                          8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
                       (3*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                          E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                          (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*
                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                          12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
                          (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
                         (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                         480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*
                          (-2/E^r^2 + (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 128*r^3*
                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                         72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))) - 16*r^4*(4/E^r^2 - (8*r^2)/
                          E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                         12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))) + 16*r^3*((-16*r)/E^r^2 + 
                          4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
                          8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
                       2)/4)))*(-4 + 1.8*^-11*(3/(E^r^2*r) - 
                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
                3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*Sin[theta]^2 + 1.5*^-6*(3/(E^r^2*r) - 
                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                 (4 - 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r) - 
                    (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                    (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                        E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
                9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                    r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2))/2 + 
             1.*^-6*(-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
                      E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
                       E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^2) + 7.5*^-7*(21/(E^r^2*r) - 
                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r)*Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                 ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 
                 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
                       E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r) - 
                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r)*Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                   (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                   (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
                      E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^
                   2))*((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                  (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                   r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                     E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
                    (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                    ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
                 Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                (-1 + 3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r) - 
                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]) + 
                 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                    r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                      (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                      E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                        E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
               9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2)*Sin[2*theta]^2)))/
           (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Sin[2*theta]^2)^2) + 
        r^2*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
             r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
            (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
            (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                 (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
               (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*
                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
            (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
              24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)*
         ((5.*^-7*(-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
                   E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^2)*((-6*((4*r^3)/E^r^2 - (2*r^5)/
                   E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
              Cos[theta]^2*Sin[theta]^2 - (3*((3*((4*r^3)/E^r^2 - (2*r^5)/
                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*(-1 + 
                3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3) - 7.5*^-7*(21/(E^r^2*r) - 
                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
                     E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
               (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
               ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
           (r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                 3*Sin[theta]^2)))*(2 - 9.*^-12*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Sin[2*theta]^2)) - 
          (5.*^-7*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
             3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                 ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2)*Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                  (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                  (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                    (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                    ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
            (r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) + 
                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
               (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
               ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
           (r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                 3*Sin[theta]^2)))*(-2 + 9.*^-12*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
               3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Sin[2*theta]^2)) + (4.5*^-12*Cos[theta]^2*
            (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
              (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
            (-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) - 
               (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
               1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)))/
           (r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
            (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
              (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
            (6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Cos[2*theta] - ((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 + 
                3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
              (2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) + 
                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)))/
           (r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Sin[2*theta]^2)) + 
          (1.5*^-6*(3.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) - 
                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
                4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
                      E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 3*
                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r) - 
                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r)*(-1 + 3*Cos[2*theta])))*(-3.*^-6*
                ((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2)*(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                      (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                  (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
              (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2)*(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                      (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                  (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(3/(E^r^2*r) - 
                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
                 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r) - 
                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^2)^2*Sin[2*theta]^2) - 
             (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2)*(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                      (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                  (1 + 3*Cos[2*theta])))*Sin[theta]^2*(-2 + 9.*^-12*
                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
                (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
                 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r) - 
                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^2)^2*Sin[2*theta]^2) + 
             6.*^-6*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 
               3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*((-6*((4*r^3)/E^r^2 - (2*r^5)/
                     E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
                 (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                 (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))*Cos[theta]*
              Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*(3/(E^r^2*r) - 
                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
                 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r) - 
                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^2)^2*Sin[2*theta]^2)))/
           (r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Sin[2*theta]^2)^2) - 
          (5.*^-7*r*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
                     E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
              (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                  3*Sin[theta]^2)))*(6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                -2 + 3*Sin[theta]^2)*(2 - 6.*^-6*(3/(E^r^2*r) - 
                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
                3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
                      E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                  (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                  (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                   r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                     E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2) + 
              2*(-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^3) - 3*r*((-15*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^6 + (15*((12*r^2)/E^r^2 - (16*r^4)/
                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                  (6*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                  (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3) + 
                (3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                   (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
                      E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
                 2 + (3*r*((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
                   (105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^5 - (48*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 + 
                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^3 - (3*((-624*r)/E^r^2 + (1600*r^3)/
                       E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
                     (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                     16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
                       2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
                      ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
                       8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
                   2)/4)*(-1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
                  3*Sin[theta]^2)) + 0.000027*((3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
               Sin[2*theta]^2 + 0.000027*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((-6*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
                (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^
                2) - (r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
                 (-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                  (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                  (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                   r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                     E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
                 (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
              1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
               Sin[2*theta]^2)*(3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                -2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(3/(E^r^2*r) - 
                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(
                3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
                       E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                   (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                   (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                      24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                   ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
                 (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)) + 
              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Sin[2*theta]^2))/(2*r^2*(-9.*^-12*(-6/(E^r^2*r) + 
                 (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(3/(E^r^2*r) - 
                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
                 (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2)))/
       (Sqrt[2]*r) + 
     (-3.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
         (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
              (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
           (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
           r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
        Cos[theta]*Sin[theta]*((3.*^-12*r*Cos[theta]*Sin[theta]*
           (-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - 
            (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2))/2)*(((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                 (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                 (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4)))/
          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)^2 + (3.*^-12*r*Cos[theta]*Sin[theta]*
           (((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                 (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                 (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4))*
           ((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
            3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
              3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) - (3.*^-6*r*Cos[theta]*Sin[theta]*
           (-1/2*((((-6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 + (6*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^4 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^3 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^2)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2))/r^3) - 7.5*^-7*(21/(E^r^2*r) - 
                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r)*Sin[theta]^2) - 1.*^-6*(-6/(E^r^2*r) + 
                 (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                (3*((3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^5 - (3*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^3) - (3*((21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                       r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                    (21*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                       4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                    (9*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                       24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                         (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
                          (-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^3 - (2*((-624*r)/E^r^2 + (1600*r^3)/
                        E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                       48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/
                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                         6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                         2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
                      (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*
                       (-2/E^r^2 + (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 128*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))) - 16*r^4*(4/E^r^2 - (8*r^2)/
                         E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                      12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))) + 16*r^3*((-16*r)/E^r^2 + 
                        4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
                        8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
                    2)/4))*(-4 + 1.8*^-11*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r) - 
                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 + 1.5*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 
                 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r) - 
                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
            1.*^-6*(((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
                       E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                   (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                   (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                      24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                   ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4))*
             ((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
                Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                -1 + 3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r) - 
                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r) - 
                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 (1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Sin[2*theta]^2)))/
          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)^2) + 
       r^2*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
            r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
           (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
           (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
           (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
             24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                  E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                 (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))))/r)*Sin[theta]^2)*
        ((-1.*^-12*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
             3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                 ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2)*Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                  (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                  (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                    (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                    ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))^2)/
          (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)^2 + (4.5*^-12*Cos[theta]^2*
           (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
           (((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                 (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                 (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4)))/
          ((2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) - 
         (1.*^-6*(((9.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^3)^2*(1 + 3*Cos[2*theta]) + 3*
                ((3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 - (3*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3)*(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                      (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                  (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*
                (3.*^-6*((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                    (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                        E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2)^2*Cos[theta]^2 + 3.*^-6*
                  (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                   (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))/r^2)*((-6*((12*r^2)/E^r^2 - (16*r^4)/
                       E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + 
                   (6*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - 
                   (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                      24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + 
                   ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^2)*Cos[theta]^2 + 7.5*^-7*
                  ((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                   (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))/r^3)*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                    r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                   (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                   (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                      24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                   ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(-2 + 3*Sin[theta]^2) + 
                 (((21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^5 - (21*((24*r)/E^r^2 - (88*r^3)/
                        E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^4 + (9*(24/E^r^2 - (288*r^2)/E^r^2 + 
                       (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                       r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^3 - (2*((-624*r)/E^r^2 + (1600*r^3)/
                        E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                       48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/
                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                         6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                         2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
                      (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*
                       (-2/E^r^2 + (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 128*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))) - 16*r^4*(4/E^r^2 - (8*r^2)/
                         E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                      12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))) + 16*r^3*((-16*r)/E^r^2 + 
                        4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
                        8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
                   (-1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
                          E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                        r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
                      3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*(3/(E^r^2*r) - 
                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
                 3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/
                       E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                   (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                   (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                  (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^2)^2*Sin[2*theta]^2))/2 - 
            2.5*^-7*(6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])) - 
              (3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
                Sin[theta]^2)/2 + 9.*^-6*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Sin[2*theta]^2)*((-3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                 (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                 (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
                Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                1 - 3*Cos[2*theta] + 6.*^-6*(3/(E^r^2*r) - 
                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(21/(E^r^2*r) - 
                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Sin[2*theta]^2)))/
          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
            r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
           (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
             24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                  E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                 (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
         3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
           ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/
            r^3)*(-1 + 3*Sin[theta]^2))*
        ((-5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
            7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
                  E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
                2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
              (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           ((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                   4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
              Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)) - 
         (1.*^-6*(-((3.*^-6*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                 ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 
                 3*Cos[2*theta]) + 1.5*^-6*(-105/(E^r^2*r^2) + 
                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)*
              ((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                  (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                   r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                     E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4 + 3*
                ((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                (1 - 3*Sin[theta]^2))) + (-2 + 3.*^-6*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
                3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2)*((3*((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^6 + (105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                 (48*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                 (13*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
                 (3*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
                   (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                   16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r)*Sin[theta]^2)/4 + 
              3*((-15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^5 - (6*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
               (1 - 3*Sin[theta]^2))))/
          (-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)^2 + 
         (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
            7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
                  E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
                2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
              (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - 
            (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2))/2))/(r*(7.5*^-7*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
           (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
           (1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 
            Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6.*^-6*Cos[theta] + 
              1.*^-6*Cot[theta]*Csc[theta])))/
          (r*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2))))/Sqrt[2] + 
      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(21/(E^r^2*r) - 
           (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
           (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
           (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
             24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                  E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                 (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
         3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
           ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/
            r^3)*(-1 + 3*Sin[theta]^2))*
        (-1/4*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
                   E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
             7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
                   E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/
                   E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                     E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
                  E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                 r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r) - 2*Csc[theta]^2 + 
             3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^2/
           (r^2*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
              Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^
             2) + (7.5*^-13*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
            (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                 (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
           (1 + 3*Cos[2*theta])*((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                   4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
              Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (1 - 3*Sin[theta]^2)))/(-2 + 3.*^-6*(3/(E^r^2*r) - 
             (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
             ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                  E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
           1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
             (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                  (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
             (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                  E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                    E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2) + 
         (1.125*^-12*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2 - 
           7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
             (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                  (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
             (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                  E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                    E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
            (7.5*^-7*r^2*(630/(E^r^2*r^3) - (630*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^6 + (297*((12*r^2)/E^r^2 - (16*r^4)/
                   E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
               (87*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*(24/E^r^2 - 
                  (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))))/r^3 - (4*((-624*r)/E^r^2 + (1600*r^3)/
                   E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                  16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + 
               (-624/E^r^2 + (5472*r^2)/E^r^2 - (4096*r^4)/E^r^2 + 
                 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 480*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                 128*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))) - 16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*(8/E^r^2 - 
                   (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                 16*r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
                   8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                   2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r) + 4*Csc[theta]^2 - 
             6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                    E^r^2))/r^3)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 
             3.*^-6*r^2*(90/(E^r^2*r^3) - (90*((4*r^3)/E^r^2 - (2*r^5)/
                   E^r^2))/r^6 + (39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
              (-3 + Csc[theta]^2)) + (2.25*^-12*r^2*(-105/(E^r^2*r^2) + 
                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)^2 + 9.000000000000001*^-12*r^2*(-15/(E^r^2*r^2) + 
               (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                   4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 1.8*^-11*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 9.*^-12*r^2*
              (-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^2*
              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
              (7.5*^-7*r^2*(630/(E^r^2*r^3) - (630*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^6 + (297*((12*r^2)/E^r^2 - (16*r^4)/
                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                 (87*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                 (19*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
                 (4*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
                   (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                   16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r) + 2*Csc[theta]^2 + 3.*^-6*r^2*
                (90/(E^r^2*r^3) - (90*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
                 (39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 - (9*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3)*(-3 + Csc[theta]^2)) - 3.*^-6*(3/(E^r^2*r) - 
               (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
                (90/(E^r^2*r^3) - (90*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
                 (39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 - (9*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*(630/(E^r^2*r^3) - 
                 (630*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
                 (297*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 - (87*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^4 + (19*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^3 - (4*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                     E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
                   (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                   16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r)*Sin[theta]^2))/4)/
          (2*r^2*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/
                   E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
             Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^
            2) + (7.5*^-7*(4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
            0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
                3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) - 
                (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               (1 + 3*Cos[2*theta])))*Csc[theta]*
           (1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 
            Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6.*^-6*Cos[theta] + 
              1.*^-6*Cot[theta]*Csc[theta]))*Sin[2*theta])/
          (r^2*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
               r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) + (2.5*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) + 
              (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
            7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
                  E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
                2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
              (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 + 
            9.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
              (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
                3*Cos[2*theta]) - 9*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
          (r^2*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
               r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) - 
   ((-3.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
         (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
              (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
           (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
           r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
        Cos[theta]*Sin[theta]*((-3.*^-12*Cos[theta]*Sin[theta]*
           (-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - 
            (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2))/2)*(-0.000018*(3/(E^r^2*r) - 
               (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
            6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(1 + 1.*^-6*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2)))/
          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)^2 + (3.*^-12*Cos[theta]*Sin[theta]*
           (-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) - 
              (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2))*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
            3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
              3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
           (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (1.8*^-11*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                    E^r^2))/r^3)^2 + (1 + 7.5*^-7*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2)*(2 - 3.*^-6*r*(-15/(E^r^2*r^2) + 
                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2) - 3.*^-6*(3/(E^r^2*r) - 
              (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (4 - 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
               Cos[2*theta] + 3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
              7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
                    E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                   24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2) + 6.*^-6*(-6/(E^r^2*r) + 
              (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[2*theta] - 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^4)))/((-2 + 9.*^-12*(3/(E^r^2*r) - 
               (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
              3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) + (1.5*^-12*Cos[theta]*Sin[theta]*
           (((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                 (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                 (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4))*
           (-3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 + 
            9.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
              (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
                3*Cos[2*theta]) - 9*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
          ((2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
           (-8.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
                     E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
               4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Cos[2*theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
                 (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 (-1 + 3*Cos[2*theta])))*(-9.*^-6*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Cos[theta]^2*Sin[theta]^2 - (3*((3*((4*r^3)/E^r^2 - (2*r^5)/
                     E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
                (-1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
                       E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.5*^-7*
                  (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r)*Sin[theta]^2))/2) + 
            (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3) + ((21/(E^r^2*r) - 
                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
              3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Cos[2*theta])*(-8 + 3.6*^-11*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
                1 + 3*Cos[2*theta]) - 6.*^-6*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 
                3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              1.8*^-11*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
           (-((((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2)*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                      (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
                 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                    r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                      (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                      E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                        E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + 
                 (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                   (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
                        E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                       r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                    (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                       4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                    (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                       24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                         (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
                          (-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
                       E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4))*(2 - 9.*^-12*
                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
                (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
                 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r) - 
                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
            r*(((30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 - 
                (30*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^5 + (15*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^4 - (5*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^3 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2)*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
                 (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 Sin[theta]^2) - 1.*^-6*((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               (3*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^2) + 
                   (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                   (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
                      E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
                 4) + 1.*^-6*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
                (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(
                3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
                       E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                   (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                   (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                      24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                   ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4) + 
              1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                3*((-15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
                  (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^5 - (6*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3) - (3*((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
                   (105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^5 - (48*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 + 
                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^3 - (3*((-624*r)/E^r^2 + (1600*r^3)/
                       E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
                     (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                     16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
                       2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
                      ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
                       8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
                   2)/4))*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Sin[2*theta]^2) + 1.*^-6*r*
             (((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
                       E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                   (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                   (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                      24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                   ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4))*
             ((3*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                 (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                 (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
                Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 
                3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
                  3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r) - 
                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 (1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Sin[2*theta]^2)))/
          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)^2) + 
       r^2*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
            r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
           (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
           (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
           (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
             24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                  E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                 (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))))/r)*Sin[theta]^2)*
        ((5.*^-7*(-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
               r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - 
            (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
              3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
                    E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
          (r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
           (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) - 
         (5.*^-7*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
            3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
           (r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) + 
                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
          (r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
           (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
           (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
           (6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Cos[2*theta] - ((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) + 
                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2)))/
          (r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) + (2.25*^-12*Cos[theta]*
           (4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
              (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
            0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
                3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) - 
                (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               (1 + 3*Cos[2*theta])))*Sin[theta]*
           (((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                 (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                 (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
          (r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) + 
         (1.5*^-6*(3.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
               4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Cos[2*theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
                 (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 (-1 + 3*Cos[2*theta])))*(-3.*^-6*((3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
             Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
             (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Sin[2*theta]^2) - (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/
                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
             Sin[theta]^2*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Sin[2*theta]^2) + 6.*^-6*(3*((3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 
              3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                 r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
             (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Sin[2*theta]^2)))/
          (r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Sin[2*theta]^2)^2) - 
         (2.5*^-7*(2*(9.*^-6*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                1 + 3*Cos[2*theta]) + 3*((-15*((4*r^3)/E^r^2 - (2*r^5)/
                    E^r^2))/r^6 + (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                (6*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*(2 + 
                3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
              6*Sin[theta]^2*(3.*^-6*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/
                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
                  (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                  (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
                 ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                  (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2)*Cos[theta]^2 + 3.*^-6*(-6/(E^r^2*r) + 
                  (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^2)*((30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^6 - (30*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + 
                  (15*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - 
                  (5*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + 
                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^2)*Cos[theta]^2 + 7.5*^-7*
                 (-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3)*((21*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                  (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                  (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(-2 + 3*Sin[theta]^2) + 
                (((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
                   (105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^5 - (48*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 + 
                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^3 - (3*((-624*r)/E^r^2 + (1600*r^3)/
                       E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
                     (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                     16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
                       2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
                      ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
                       8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
                  (-1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
                         E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                       r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
                     3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
                1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
                3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Sin[2*theta]^2) + 1.*^-6*((-3*(-105/(E^r^2*r^2) + 
                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
                Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - 
                3*Cos[2*theta] + 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
                  3*Cos[2*theta]) - 7.5*^-7*(21/(E^r^2*r) - 
                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Sin[2*theta]^2)*(-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
              (3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
                Sin[theta]^2)/2 - 9.*^-6*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Sin[2*theta]^2)))/
          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) - 
     (r^2*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
            r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
           (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
           (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
           (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
             24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                  E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                 (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))))/r)*Sin[theta]^2)*
        (-1/4*(r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
                     E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
                (-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
               (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
               ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)^2/
           (r^4*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
                 (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2) + 
         (7.5*^-13*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
            (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                 (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
           (1 + 3*Cos[2*theta])*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
            3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
          (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                  (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
           1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
             (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                  (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
             (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                  E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                    E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
           6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
             ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                  E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*
              (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
            Sin[2*theta]^2) + (2.25*^-12*
           ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
            (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                 (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
               (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*
                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
            (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
              24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
           (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/
          (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                  (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
           1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
             (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                  (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
             (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                  E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                    E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
           3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
             ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                  E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
             7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
            Sin[2*theta]^2) + (2.25*^-12*Cos[theta]*
           (4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
              (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
            0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
                3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) - 
                (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               (1 + 3*Cos[2*theta])))*Sin[theta]*
           (-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) - 
              (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2))*Sin[2*theta])/
          (r^2*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
                   E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) - (2.25*^-12*Cos[theta]*
           (4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
              (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
            0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
                3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) - 
                (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               (1 + 3*Cos[2*theta])))*Sin[theta]*
           (6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Cos[2*theta] - ((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) + 
                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2))*Sin[2*theta])/
          (r^2*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
                   E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) + 
         (2.5*^-7*(r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(
                -15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)*
           (-3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 + 
            9.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
              (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
                3*Cos[2*theta]) - 9*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
          (r^3*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
           (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) + 
         (7.5*^-7*(-6.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
               4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Cos[2*theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
                 (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 (-1 + 3*Cos[2*theta])))*(-4*r*(30/(E^r^2*r^2) - 
                (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                 r^2) + 0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4 + 
                3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
                      E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])) - 
              6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-2 + 1.*^-6*(-6/(E^r^2*r) + 
                  (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*
                 (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                  (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 
            2*Cos[2*theta]*(4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
                (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
              0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                -4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                  ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
                  3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 1.*^-6*
                 (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*
                 (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                  (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
                1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Sin[2*theta]^2) + 6.*^-6*(18*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
              3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                -6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 
              6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 
                r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
                  (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                  (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)))*
             Sin[2*theta]^2*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Sin[2*theta]^2)))/
          (r^2*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
                    E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Sin[2*theta]^2)^2) - 
         (-2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                 3*Sin[theta]^2)))*(r*(2 - 6.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
                     E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
               (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
               ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2) + 
           r*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                 3*Sin[theta]^2)))*(3.*^-6*r*(-15/(E^r^2*r^2) + 
               (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (-2 + 3*Sin[theta]^2)*(2 - 6.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
                     E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2) + 
             (2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) + 
                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.*^-6*r*(-9*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
                     E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3) - 3*r*(90/(E^r^2*r^3) - 
                 (90*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
                 (39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 - (9*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3) + (9*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/
                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                  (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                  (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4 + (3*r*
                 (630/(E^r^2*r^3) - (630*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^6 + (297*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                  (87*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                  (19*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
                  (4*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
                    (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                    16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
                      2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
                     ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
                      8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
                      2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                        6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                        2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))))/r)*Sin[theta]^2)/4)*(-1 + 3.*^-6*
                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.3499999999999999*^-11*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
               (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
               ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2 + 
             1.3499999999999999*^-11*r*(-15/(E^r^2*r^2) + 
               (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
              Sin[2*theta]^2 + 1.3499999999999999*^-11*r*(3/(E^r^2*r) - 
               (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
               (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
              Sin[2*theta]^2) - r*(r*(2 - 6.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
                     E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
               (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
               ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)*
            (3.*^-6*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2) + 1.*^-6*(3*(-15/(E^r^2*r^2) + 
                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
               (3*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                  (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                  (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)) + 
             4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
              (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
               (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
              Sin[2*theta]^2))/(2*r^3*(-9.*^-12*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                 3*Sin[theta]^2)))^2)) - 3.*^-6*r*(-6/(E^r^2*r) + 
         (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
         (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
              (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
           (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
           r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
        Cos[theta]*Sin[theta]*
        ((1.5*^-12*r*((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
            (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                 (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
               (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*
                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
            (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
              24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]*
           Sin[theta]*(-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*((-6*((4*r^3)/E^r^2 - (2*r^5)/
                  E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - 
                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - 
            (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2))/2))/(2 - 9.*^-12*(3/(E^r^2*r) - 
              (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
            (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
             (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
             (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                  (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
             (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                  E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                    E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
           3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
             ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                  E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
             7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
            Sin[2*theta]^2) - (2.2500000000000003*^-12*r*
           ((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
            (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                 (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
           Cos[theta]*(1 + 3*Cos[2*theta])*Sin[theta]*
           (((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
             (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                 (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                 (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4)))/
          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                  (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
           1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
             (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                  (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
             (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                  E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                    E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
           3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
             ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                  E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
             7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
            Sin[2*theta]^2) + (1.5*^-6*Cos[theta]*Sin[theta]*
           (-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) - 
              (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2))*(r*(2 - 6.*^-6*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
              3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
                    E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
          (r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
           (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) + 
         (7.5*^-7*(4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
               r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
            0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
                3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) - 
                (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               (1 + 3*Cos[2*theta])))*(1.8*^-11*(3/(E^r^2*r) - 
               (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
            (1 + 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2)*(2 - 3.*^-6*r*(-15/(E^r^2*r^2) + 
                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2) - 3.*^-6*(3/(E^r^2*r) - 
              (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (4 - 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
               Cos[2*theta] + 3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
              7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
                    E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                   24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                 r)*Sin[theta]^2) + 6.*^-6*(-6/(E^r^2*r) + 
              (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[2*theta] - 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^4))*Sin[2*theta])/
          (r*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)) - (3.*^-6*Cos[theta]*Sin[theta]*
           (((4.5*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)*(-105/(E^r^2*r^2) + 
                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2 + 3*(-15/(E^r^2*r^2) + 
                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                (2 - 0.000012*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
                       E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 3.*^-6*
                  (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                   (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))/r^2) + 1.*^-6*r*(30/(E^r^2*r^2) - 
                   (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                   (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2) + 1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
                      (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
                       E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                   (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                   (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2) + 
               (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                 (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2)*(-2 + 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                      (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
                 1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                    r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                      (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                      E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                        E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
                  (-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                    r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                   (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                   (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                      24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                   ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2) + 1.*^-6*
                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                ((-9*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
                        E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                       r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                    (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                       4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                    (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                       24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                         (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
                          (-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
                       E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2)/4 + 
                 r*(3*(90/(E^r^2*r^3) - (90*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                      r^6 + (39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                        r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                     (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                        4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                     (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                       24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                         (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
                          (-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                      r^3) - (3*(630/(E^r^2*r^3) - (630*((4*r^3)/E^r^2 - 
                         (2*r^5)/E^r^2))/r^6 + (297*((12*r^2)/E^r^2 - 
                         (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/
                       r^5 - (87*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/
                          E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                         r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                       r^4 + (19*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/
                          E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                         16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                         r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r^3 - (4*((-624*r)/E^r^2 + (1600*r^3)/
                          E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                         48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/
                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                          2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/
                         E^r^2 - (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                        256*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r*
                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                        128*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)) + 72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 16*r^4*
                         (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
                          2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
                         ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                          2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/
                          E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*
                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                          8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
                      2)/4)))*(-4 + 1.8*^-11*(3/(E^r^2*r) - 
                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r) - 
                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                Sin[theta]^2 + 1.5*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 
                 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r) - 
                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^2)^2*Sin[2*theta]^2))/2 + 
            1.*^-6*(-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
                     E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) - 
                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
                1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^2) + 7.5*^-7*(21/(E^r^2*r) - 
                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 
                3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
                      E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r) - 
                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) + 
                  (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                  (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
                   r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
                     E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*Sin[theta]^2))*
             ((3*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                 (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                 (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
                Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 
                3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
                  3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r) - 
                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 (1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Sin[2*theta]^2)))/
          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
             Sin[2*theta]^2)^2 + (3.*^-6*Sin[2*theta]*
           ((3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                1 + ((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                    r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                      (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                      E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                        E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
              6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Cos[2*theta] + 6.*^-6*r*(-6/(E^r^2*r) + 
                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Cos[2*theta] - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
                3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3) + 6*(-6/(E^r^2*r) + 
                  (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^2)*Cos[2*theta]))*
             (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Sin[2*theta]^2) + 1.*^-6*(9.*^-6*(3/(E^r^2*r) - 
                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
              (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
               4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Cos[2*theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
                 (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 (-1 + 3*Cos[2*theta])))*(-3*r*(-15/(E^r^2*r^2) + 
                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r) - 
                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                 Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
                    (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                 ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 + 
              9.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
               Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
                3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                   r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta]) - 
                9*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2)))/r^2)*Sin[2*theta]^2))))/
          (r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
              Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2
