(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.500000000000001*^-9*
          (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
           (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                 E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
              (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
           ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/
                E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
             6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
             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)*
          Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
           (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
           ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
            r^3)*(-1 + 3*Sin[theta]^2))*
        ((-1.0000000000000001*^-16*((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2)/4 + 
             3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2)^2 - 
         (1.*^-8*(-5.*^-9*(3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/
                      E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                  (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                  (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                    (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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)*Sin[theta]^2)/2)^2 + 
            (-2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
                3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2)*
             ((3*((21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 - (21*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^4 + (9*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^3 - 
                 (2*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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^2 + ((1248*r)/E^r^2 - (1728*r^3)/
                    E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*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))) - 
                   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))) + 6*r*(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))) + 12*r^2*
                    ((-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*(-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*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^5 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^3)*(1 - 3*Sin[theta]^2))))/
          (-2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2)^2))/Sqrt[2] + 
      ((I/2)*r*Sin[theta]*(1 - 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
           (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
           (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                 E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
              (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
           ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/
                E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
             6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
             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)*
          Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
           (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
           ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
            r^3)*(-1 + 3*Sin[theta]^2))*
        ((5.*^-9*(7.500000000000001*^-9*(-105/(E^r^2*r^3) + 
              (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
              (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
              (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                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)*((3*((21*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                 (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                 (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                   (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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 + 3*((3*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^
                 2)) + 3.0000000000000004*^-8*(-15/(E^r^2*r^3) + 
              (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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 + 3*((3*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^
                 2)) - (7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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) - Csc[theta]^2 + 3.0000000000000004*^-8*
               (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-3 + Csc[theta]^2))*
             ((3*((-105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
                 (105*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 - (48*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^4 + (13*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^3 - 
                 (3*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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^2 + ((1248*r)/E^r^2 - (1728*r^3)/
                    E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*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))) - 
                   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))) + 6*r*(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))) + 12*r^2*
                    ((-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*(-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*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^6 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                (6*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^3)*(-3 + Csc[theta]^2))))/
          (7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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) - 
            Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-3 + Csc[theta]^2))^2 - 
         (5.*^-9*(-9.000000000000001*^-8*r*(-15/(E^r^2*r^3) + 
              (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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) + 
            7.500000000000001*^-9*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
              (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
              (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                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) - 2*Csc[theta]^2 + 
            3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
                (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
            6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
               (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                 (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                 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)*Sin[theta]^2)/4 + 
            3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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.500000000000001*^-9*
             (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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) - 
            Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 3.0000000000000004*^-8*
             (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
               r^3)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2)) + (5.*^-9*(-9.000000000000001*^-8*r*
             (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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) + 
            7.500000000000001*^-9*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
              (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
              (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                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) - 2*Csc[theta]^2 + 
            3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
                (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
            6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2)*
             Cos[theta]^2*Sin[theta]^2 - 
            (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2))/2))/
          (r*(7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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) - 
            Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-3 + Csc[theta]^2))*(2 - 9.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.5000000000000002*^-8*Cos[theta]*
           (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2)*
             (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
                3*Cos[2*theta])))*(1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Cos[theta] - Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-6.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[
                theta])))/(r*(7.500000000000001*^-9*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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) - 
            Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.0000000000000004*^-8*r*(-6/(E^r^2*r^2) + 
          (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
          (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/
           r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
            3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
              2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
         ((1.5000000000000002*^-8*Cos[theta]*Sin[theta]*
            (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
               (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2)*
              (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
               7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2) + 
             1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
              (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
               (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + 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^2 + 
                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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)*Sin[theta]^2)/4))*
            (r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 7.500000000000001*^-9*r*
                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)*
              (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(-6/(E^r^2*r^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2)*
              (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-16*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.5000000000000002*^-8*Cos[theta]*
            (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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^2)*(2 + 3.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
            (1.8*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)^2 + (1 + 7.500000000000001*^-9*
                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2)*
              (2 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 7.500000000000001*^-9*r*
                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2) - 
             3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (4 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               6.000000000000001*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + 
               3.0000000000000004*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 7.500000000000001*^-9*r*
                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2) + 6.000000000000001*^-8*
              (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
              (Cos[2*theta] - 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^4)))/
           ((-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.*^-16*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.500000000000001*^-9*Sin[2*theta]*
            (-8.*^-8*(9.*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
               (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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 - 3.0000000000000004*^-8*
                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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^2) - (3*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-9*
                  (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*(-1 + 3*Cos[2*theta])))*
              (-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2)*Cos[theta]^2*Sin[theta]^2 - 
               (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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.0000000000000004*^-8*
                   (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                    ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2))/r^3) - 7.500000000000001*^-9*
                   (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                     r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/
                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 
                      12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 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)*Sin[theta]^2))/
                2) + (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
                 ((21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                     r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/
                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 
                      12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 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)*(1.*^-8 - 
                    3.0000000000000004*^-8*Cos[2*theta]))/4) + 
               3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
                 (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2)*Cos[2*theta])*(-8 + 3.6*^-15*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
               6.000000000000001*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 3.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 
                 3.0000000000000004*^-8*(21/(E^r^2*r^2) - 
                   (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
               1.8*^-15*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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.*^-16*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.0000000000000004*^-8*Cos[theta]*
            Sin[theta]*(((4.5000000000000006*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                 ((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + 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^2 + 
                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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)*Sin[theta]^2 + 
                3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                 (2 - 1.2000000000000002*^-7*(3/(E^r^2*r^2) - 
                    (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                      (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
                  2.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
                        E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                       r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
                      (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)))/r^2) + 1.5000000000000002*^-8*
                   (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                     r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/
                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 
                      12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 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)*Sin[theta]^
                    2) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                  (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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^2)*(-2 + 6.000000000000001*^-8*
                   (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                    ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2))/r^3) + 3.0000000000000004*^-8*r*
                   (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                     r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
                     r^3) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
                    (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                    (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/
                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 
                      12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 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)*Sin[theta]^2 - 
                  7.500000000000001*^-9*r*(-105/(E^r^2*r^3) + 
                    (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                    (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/
                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/
                        E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
                        (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                      (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      9*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))) + 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)*Sin[theta]^
                    2) + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
                    (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^2)*((-3*((21*((3*r^2)/E^r^2 - 
                        (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/
                         E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                     (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                        3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                     (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 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^2 + 
                     (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                       12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                         (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                          (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 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)*Sin[theta]^2)/
                   2 + r*(3*((-15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
                      (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)))/r^5 - (6*(6/E^r^2 - (48*r^2)/
                          E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 
                        12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*
                          (-2/E^r^2 + (4*r^2)/E^r^2)) + 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^3) - (3*((-105*((3*r^2)/E^r^2 - 
                          (2*r^4)/E^r^2))/r^6 + (105*((6*r)/E^r^2 - (12*r^3)/
                          E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                       (48*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                          3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/
                          E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                       (13*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                          (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                          (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*
                          (-2/E^r^2 + (4*r^2)/E^r^2)) + 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^3 - (3*(-96/E^r^2 + (624*r^2)/E^r^2 - 
                          (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                          36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*
                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                          12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)) + 9*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))) + 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^2 + ((1248*r)/E^r^2 - 
                         (1728*r^3)/E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + 144*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                         36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                         72*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)) + 36*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))) - 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))) + 6*r*(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))) + 12*r^2*
                          ((-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*(-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*^-15*(3/(E^r^2*r^2) - 
                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
                 (1 + 3*Cos[2*theta]) - 3.0000000000000004*^-8*
                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*Sin[theta]^2 + 1.5000000000000002*^-8*
                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 
                  3.0000000000000004*^-8*(21/(E^r^2*r^2) - 
                    (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                    (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/
                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 
                      12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 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)*(1 + 
                    3*Cos[2*theta])*Sin[theta]^2) + 9.*^-16*(-6/(E^r^2*r^2) + 
                   (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                   (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((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.*^-8*(-1.8*^-7*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
               6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(1 + 1.*^-8*(-6/(E^r^2*r^2) + 
                   (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                   (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
                    r^2) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                   (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*Sin[theta]^2) + (-6/(E^r^2*r^2) + 
                 (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                (-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                   (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                   (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
                    r^3) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
                   (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*Sin[theta]^2 - 7.500000000000001*^-9*r*
                  (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                    r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/
                       E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/
                       E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
                       (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                     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)*Sin[theta]^2))*
              ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + 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^2 + 
                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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)*(2 + 3.0000000000000004*^-8*
                   (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                    ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
                4 + 3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.000000000000001*^-8*(3/(E^r^2*r^2) - 
                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                  (1 + 3*Cos[2*theta]) + 7.500000000000001*^-9*
                  (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
               9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2)*Sin[2*theta]^2)))/
           (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                  (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - 
                  (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/
                  E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.0000000000000004*^-8*
           (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
            ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
             r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
            (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
            (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                  E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
            ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
              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)*
           Sin[theta]^2)*((5.*^-9*(-9.*^-8*(-6/(E^r^2*r^2) + 
               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/
                   E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - 
                  (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/
                  E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2)*
              Cos[theta]^2*Sin[theta]^2 - (3*((3*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
                7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*Sin[theta]^2))/2)*
            (r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 7.500000000000001*^-9*r*
                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)*
              (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(-6/(E^r^2*r^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2)*
              (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-16*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.*^-9*((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
              (3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
                 (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2)*Cos[theta]^2 + 
               (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + 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^2 + 
                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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)*(-1 + 3.0000000000000004*^-8*
                   (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                    ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
            (r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 7.500000000000001*^-9*r*
                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)*
              (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(-6/(E^r^2*r^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2)*
              (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (2 - 3*Sin[theta]^2)))*(-2 + 9.*^-16*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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*^-16*Cos[theta]^2*
            (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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^2)*(2 + 3.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
            (-1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (1 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^2) + 7.500000000000001*^-9*
                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2) + 
             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
              (-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
               1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 - 7.500000000000001*^-9*r*
                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)))/
           (r*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.*^-16*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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*^-16*Cos[theta]^2*
            (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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^2)*(2 + 3.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
            (6.000000000000001*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((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^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(2 + 3.0000000000000004*^-8*
                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
              (2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 7.500000000000001*^-9*r*
                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)))/
           (r*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.*^-16*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.5000000000000002*^-8*
            (3.0000000000000004*^-8*(9.*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
               (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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 - 3.0000000000000004*^-8*
                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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^2) - (3*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-9*
                  (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*(-1 + 3*Cos[2*theta])))*
              (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2)*(2 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-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.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + 
                 (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2)*(2 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-16*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
               1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 - 3.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                      (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/
                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                   (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                       (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                   ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
               4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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.0000000000000004*^-8*
                ((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2)*(2 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
              (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 - 3.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                      (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/
                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                   (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                       (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                   ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
               4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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.000000000000001*^-8*
              (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
              (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 - 3.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                      (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/
                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                   (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                       (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                   ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
               4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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.*^-16*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
                1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(
                21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 + 3.0000000000000004*^-8*(
                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.*^-9*r*(9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
                7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*Sin[theta]^2)*(1 + 
                3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                  3*Sin[theta]^2)))*(6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.000000000000001*^-8*
                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2))/r^3) - 3.0000000000000004*^-8*r*
                 (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
                   r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*Sin[theta]^2 + 7.500000000000001*^-9*r*
                 (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + 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^2 + 
                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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)*Sin[theta]^2) + 
              2*(-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
                   r^3) - 3*r*((-15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
                  (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^5 - (6*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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^3) + (3*((21*((3*r^2)/E^r^2 - (2*r^4)/
                       E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                      r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                   (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                       (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                   (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                     (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*
                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     9*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))) + 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)*Sin[theta]^2)/
                 2 + (3*r*((-105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
                   (105*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^5 - (48*(6/E^r^2 - (48*r^2)/
                       E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^4 + (13*((-96*r)/E^r^2 + (144*r^3)/
                       E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
                       (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^3 - (3*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                      12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                         (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                      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^2 + ((1248*r)/E^r^2 - (1728*r^3)/
                      E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*
                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     36*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))) - 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))) + 6*r*(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))) + 
                     12*r^2*((-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*(-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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                 (-2 + 3*Sin[theta]^2)) + 2.7*^-7*((3*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
               Sin[2*theta]^2 + 2.7*^-7*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Sin[2*theta]^2) - 
            (r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
                3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                  (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
                   r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*Sin[theta]^2 + 7.500000000000001*^-9*r*
                 (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + 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^2 + 
                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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)*Sin[theta]^2)*(-1 + 
                3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
                  3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
                -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
               Sin[2*theta]^2)*(3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
                7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*Sin[theta]^2) + 1.*^-8*(
                3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
                   r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                   (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 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^2 + 
                   (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                     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)*Sin[theta]^2)/4)*(1 + 
                3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                  3*Sin[theta]^2)) + 4.5*^-16*(-6/(E^r^2*r^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Sin[2*theta]^2))/
           (2*r^2*(-9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
                7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*Sin[theta]^2)*(1 + 
                3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                  3*Sin[theta]^2)))^2)))/(Sqrt[2]*r) + 
     (-3.0000000000000004*^-8*r*(-6/(E^r^2*r^2) + 
         (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
         (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/
          r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
           3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
             2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
        ((3.0000000000000004*^-16*r*Cos[theta]*Sin[theta]*
           (-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2)*
             Cos[theta]^2*Sin[theta]^2 - 
            (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2))/2)*
           (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2)*
             (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
              7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2) + 
            1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
              (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)/4)))/
          (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.0000000000000004*^-16*r*Cos[theta]*
           Sin[theta]*(((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2)*
             (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
              7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2) + 
            1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
              (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)/4))*
           ((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3)*(2 + 3.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
            3*Sin[theta]^2*(3.0000000000000004*^-8*(-6/(E^r^2*r^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Cos[theta]^2 + 
              (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*(-1 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.0000000000000004*^-8*r*Cos[theta]*
           Sin[theta]*(-1/2*((((-6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + 
                 (6*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - 
                 (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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^3 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                   (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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^2)*(-1 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3) - 7.500000000000001*^-9*
                  (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*Sin[theta]^2) - 1.*^-8*
                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                (3*((3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^5 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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^3) - (3*((21*((6*r)/E^r^2 - (12*r^3)/
                        E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                    (21*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                       3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                    (9*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                       6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                       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^3 - (2*(-96/E^r^2 + (624*r^2)/E^r^2 - 
                       (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*
                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)) + 9*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))) + 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^2 + ((1248*r)/E^r^2 - (1728*r^3)/
                       E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
                       (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      36*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))) - 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))) + 6*r*(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))) + 
                      12*r^2*((-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*(-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*^-15*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 3.0000000000000004*^-8*
                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 1.5000000000000002*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 
                 3.0000000000000004*^-8*(21/(E^r^2*r^2) - 
                   (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
               9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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.*^-8*
             (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*(1 - 3.0000000000000004*^-8*
                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*Sin[theta]^2) + 1.*^-8*(
                -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
                   r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                   (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 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^2 + 
                   (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                     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)*Sin[theta]^2)/4))*
             ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*(2 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.000000000000001*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) + 7.500000000000001*^-9*
                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.0000000000000004*^-8*
          (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
           ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
            r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
           (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
           (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                 E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
              (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
           ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/
                E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
             6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
             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)*
          Sin[theta]^2)*((-1.0000000000000001*^-16*
           ((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
              (3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
                 (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2)*Cos[theta]^2 + 
               (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + 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^2 + 
                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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)*(-1 + 3.0000000000000004*^-8*
                   (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                    ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                         E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))^2)/
          (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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*^-16*Cos[theta]^2*
           (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2)*
             (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
                3*Cos[2*theta])))*Sin[theta]^2*
           (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2)*
             (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
              7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2) + 
            1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
              (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)/4)))/
          ((2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-8*(((9.*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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*((6*r)/E^r^2 - (12*r^3)/
                     E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                 (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^3)*(2 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3)*(1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*
                (3.0000000000000004*^-8*((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                     r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/
                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 
                      12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 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^2)^2*
                  Cos[theta]^2 + 3.0000000000000004*^-8*(-6/(E^r^2*r^2) + 
                   (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                   (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                  ((-6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^5 + (6*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^4 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 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^3 + 
                   (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                     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^2)*Cos[theta]^2 + 
                 7.500000000000001*^-9*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                    r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                  ((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                   (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 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^2 + 
                   (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                     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)*(-2 + 3*Sin[theta]^2) + 
                 (((21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^5 - (21*(6/E^r^2 - (48*r^2)/
                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^4 + (9*((-96*r)/E^r^2 + (144*r^3)/
                        E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
                        (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^3 - (2*(-96/E^r^2 + (624*r^2)/E^r^2 - 
                       (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                       36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*
                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                       12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)) + 9*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))) + 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^2 + ((1248*r)/E^r^2 - (1728*r^3)/
                       E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
                       (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      36*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))) - 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))) + 6*r*(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))) + 
                      12*r^2*((-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*(-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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                      (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                      ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                          (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
              (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 - 6.000000000000001*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
                 3.7500000000000005*^-9*(21/(E^r^2*r^2) - 
                   (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
               4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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*^-9*
             (6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                 (1 + 3*Cos[2*theta])) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                 (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                 (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                   (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*(2 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 
              9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Sin[2*theta]^2)*
             ((-3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*(2 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.000000000000001*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) - 7.500000000000001*^-9*
                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.500000000000001*^-9*
          (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
           (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                 E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
              (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
           ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/
                E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
             6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
             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)*
          Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
           (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
           ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
            r^3)*(-1 + 3*Sin[theta]^2))*
        ((-5.*^-9*(-9.000000000000001*^-8*r*(-15/(E^r^2*r^3) + 
              (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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) + 
            7.500000000000001*^-9*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
              (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
              (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                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) - 2*Csc[theta]^2 + 
            3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
                (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
            6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
               (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                 (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                 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)*Sin[theta]^2)/4 + 
            3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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.500000000000001*^-9*
             (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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) - 
            Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 3.0000000000000004*^-8*
             (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
               r^3)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2)) - 
         (1.*^-8*(-((3.0000000000000004*^-8*(-15/(E^r^2*r^3) + 
                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.5000000000000002*^-8*
                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)*
              ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + 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^2 + 
                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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)*Sin[theta]^2)/4 + 3*
                ((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.0000000000000004*^-8*(
                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
              1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2)*
             ((3*((-105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
                 (105*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 - (48*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^4 + (13*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^3 - 
                 (3*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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^2 + ((1248*r)/E^r^2 - (1728*r^3)/
                    E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*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))) - 
                   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))) + 6*r*(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))) + 12*r^2*
                    ((-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*(-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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^5 - (6*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^3)*(1 - 3*Sin[theta]^2))))/
          (-2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2)^2 + (5.*^-9*(-9.000000000000001*^-8*r*
             (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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) + 
            7.500000000000001*^-9*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
              (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
              (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                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) - 2*Csc[theta]^2 + 
            3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
                (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
            6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2)*
             Cos[theta]^2*Sin[theta]^2 - 
            (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2))/2))/
          (r*(7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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) - 
            Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-3 + Csc[theta]^2))*(2 - 9.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.5000000000000002*^-8*Cos[theta]*
           (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2)*
             (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
                3*Cos[2*theta])))*(1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Cos[theta] - Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-6.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[
                theta])))/(r*(7.500000000000001*^-9*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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) - 
            Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.500000000000001*^-9*(21/(E^r^2*r^2) - 
           (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
           (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                 E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
              (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
           ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/
                E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
             6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
             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)*
          Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
           (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
           ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
            r^3)*(-1 + 3*Sin[theta]^2))*
        (-1/4*(-9.000000000000001*^-8*r*(-15/(E^r^2*r^3) + 
               (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*
              (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
               (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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) + 7.500000000000001*^-9*r*
              (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
               (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
               (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                 (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                 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) - 2*Csc[theta]^2 + 
             3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
                  (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
                 (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
             6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^2/
           (r^2*(7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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) - Csc[theta]^2 + 3.0000000000000004*^-8*
               (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-3 + Csc[theta]^2))^2) + 
         (7.500000000000001*^-17*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
            (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                  E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
              3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
               (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                 (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                 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)*Sin[theta]^2)/4 + 
            3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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.0000000000000004*^-8*
            (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
             ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
              r^3)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
            (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
             (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                   E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
             ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                 (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*
                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
            Sin[theta]^2) + (1.125*^-16*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)^2 - 
           7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
             (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
             ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                 (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*
                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
            (7.500000000000001*^-9*r^2*(630/(E^r^2*r^4) - (630*
                 ((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (297*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
               (87*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                  3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
               (19*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^3 - (4*(-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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^2 + ((1248*r)/E^r^2 - (1728*r^3)/
                  E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*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))) - 
                 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))) + 6*r*(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))) + 12*r^2*
                  ((-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*(-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.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta])*
              Csc[theta]^2 + 3.0000000000000004*^-8*r^2*(90/(E^r^2*r^4) - 
               (90*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (39*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
               (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^3)*
              (-3 + Csc[theta]^2)) + (2.25*^-16*r^2*(-105/(E^r^2*r^3) + 
                (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)^2 + 9.*^-16*r^2*(-15/(E^r^2*r^3) + 
               (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3)*(-105/(E^r^2*r^3) + 
               (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                  3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
               (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                 (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                 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)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 
             1.8*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2))/r^3)^2*(1 - 3*Cos[2*theta])^2*
              Csc[theta]^4 + 9.*^-16*r^2*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.500000000000001*^-9*r^2*(630/(E^r^2*r^4) - 
                 (630*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
                 (297*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 - (87*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^4 + (19*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^3 - 
                 (4*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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^2 + ((1248*r)/E^r^2 - (1728*r^3)/
                    E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*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))) - 
                   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))) + 6*r*(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))) + 12*r^2*
                    ((-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*(-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.0000000000000004*^-8*r^2*(90/(E^r^2*r^4) - 
                 (90*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
                 (39*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 - (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^3)*(-3 + Csc[theta]^2)) - 
             3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta])*
              Csc[theta]^4*(8 + 3.0000000000000004*^-8*r^2*(90/(E^r^2*r^4) - 
                 (90*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
                 (39*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 - (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^3)*(-1 + 3*Cos[2*theta]) + 
               1.5000000000000002*^-8*r^2*(630/(E^r^2*r^4) - 
                 (630*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
                 (297*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 - (87*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^4 + (19*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^3 - 
                 (4*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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^2 + ((1248*r)/E^r^2 - (1728*r^3)/
                    E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*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))) - 
                   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))) + 6*r*(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))) + 12*r^2*
                    ((-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*(-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.500000000000001*^-9*(21/(E^r^2*r^2) - 
               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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) - 
             Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-3 + Csc[theta]^2))^2) + (7.500000000000001*^-9*
           (4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
              (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2) - 
            1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-2 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((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*r*(30/(E^r^2*r^3) - 
                (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*(1 + 3*Cos[2*theta])))*Csc[theta]*
           (1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Cos[theta] - Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-6.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[
                theta]))*Sin[2*theta])/(r^2*(7.500000000000001*^-9*
             (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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) - 
            Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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*^-9*(-9.000000000000001*^-8*r*
             (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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) + 
            7.500000000000001*^-9*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
              (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
              (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                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) - 2*Csc[theta]^2 + 
            3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
                (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
            6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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.500000000000001*^-9*(
                21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2) + 
            9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-8*r*(-6/(E^r^2*r^2) + 
              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^3) - 
              (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
              (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2)*
             Sin[2*theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.500000000000001*^-9*
             (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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) - 
            Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.0000000000000004*^-8*r*(-6/(E^r^2*r^2) + 
         (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
         (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/
          r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
           3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
             2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
        ((-3.0000000000000004*^-16*Cos[theta]*Sin[theta]*
           (-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2)*
             Cos[theta]^2*Sin[theta]^2 - 
            (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2))/2)*
           (-1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (1 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
              7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2) + 
            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
              1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 - 7.500000000000001*^-9*r*(
                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2)))/
          (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.0000000000000004*^-16*Cos[theta]*
           Sin[theta]*(-1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
            6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
               r^3)*(1 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
              7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2) + 
            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
              1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 - 7.500000000000001*^-9*r*(
                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2))*
           ((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3)*(2 + 3.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
            3*Sin[theta]^2*(3.0000000000000004*^-8*(-6/(E^r^2*r^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Cos[theta]^2 + 
              (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*(-1 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.5000000000000002*^-8*Cos[theta]*
           (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2)*
             (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
                3*Cos[2*theta])))*Sin[theta]*
           (1.8*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2 + (1 + 7.500000000000001*^-9*(
                21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2)*
             (2 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 + 7.500000000000001*^-9*r*(
                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2) - 
            3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (4 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              6.000000000000001*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + 
              3.0000000000000004*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 + 7.500000000000001*^-9*r*(
                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2) + 6.000000000000001*^-8*
             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (Cos[2*theta] - 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^4)))/
          ((-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.5000000000000002*^-16*Cos[theta]*
           Sin[theta]*(((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2)*
             (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
              7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2) + 
            1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
              (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)/4))*
           (-3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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.500000000000001*^-9*(
                21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2) + 
            9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-8*r*(-6/(E^r^2*r^2) + 
              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^3) - 
              (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
              (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2)*
             Sin[2*theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.500000000000001*^-9*Sin[2*theta]*
           (-8.*^-8*(9.*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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 - 3.0000000000000004*^-8*
               (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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^2) - (3*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-9*
                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(-1 + 3*Cos[2*theta])))*
             (-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Cos[theta]^2*Sin[theta]^2 - 
              (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3) - 7.500000000000001*^-9*
                  (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*Sin[theta]^2))/2) + 
            (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
                ((21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*(1.*^-8 - 3.0000000000000004*^-8*
                    Cos[2*theta]))/4) + 3.0000000000000004*^-8*(
                -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Cos[2*theta])*
             (-8 + 3.6*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 6.000000000000001*^-8*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 + 3.0000000000000004*^-8*(
                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 
                3.0000000000000004*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              1.8*^-15*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.0000000000000004*^-8*Cos[theta]*
           Sin[theta]*(-((((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2)*(1 - 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3) + 7.500000000000001*^-9*
                  (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*Sin[theta]^2) + 1.*^-8*
                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
                (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                   (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
                    r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                    (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/
                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/
                        E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
                        (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                      (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      9*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))) + 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)*Sin[theta]^2)/
                  4))*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 3.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                      (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/
                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                   (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                       (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                   ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
               4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^6 - (30*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + 
                (15*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                   3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - 
                (5*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^3 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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^2)*(1 - 3.0000000000000004*^-8*
                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*Sin[theta]^2) - 1.*^-8*(
                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*(3*(-15/(E^r^2*r^3) + 
                  (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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^3) + (105*((3*r^2)/E^r^2 - 
                      (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/
                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                   (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                      3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                   (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                     (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*
                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     9*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))) + 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)*Sin[theta]^2)/
                 4) + 1.*^-8*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
                (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*(3*((3*((3*r^2)/E^r^2 - (2*r^4)/
                      E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
                    (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3) - (3*((21*((3*r^2)/E^r^2 - 
                      (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/
                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                   (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                       (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                   (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                     (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                     36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*
                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     9*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))) + 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)*Sin[theta]^2)/
                 4) + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                3*((-15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
                  (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^5 - (6*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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^3) - (3*((-105*((3*r^2)/E^r^2 - 
                      (2*r^4)/E^r^2))/r^6 + (105*((6*r)/E^r^2 - (12*r^3)/
                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                   (48*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                      3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                   (13*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      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^3 - (3*(-96/E^r^2 + (624*r^2)/E^r^2 - 
                      (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      9*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))) + 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^2 + 
                   ((1248*r)/E^r^2 - (1728*r^3)/E^r^2 - 168*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 144*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                     72*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     36*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))) - 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))) + 6*r*(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))) + 
                     12*r^2*((-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*(-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.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 + 3.0000000000000004*^-8*(
                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.*^-8*r*
             (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*(1 - 3.0000000000000004*^-8*
                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*Sin[theta]^2) + 1.*^-8*(
                -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
                   r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                   (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) + 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^2 + 
                   (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                     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)*Sin[theta]^2)/4))*
             ((3*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*(2 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-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^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.000000000000001*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) + 7.500000000000001*^-9*
                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.0000000000000004*^-8*
          (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
           ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
            r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
           (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
           (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                 E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
              (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
           ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/
                E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
             6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
             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)*
          Sin[theta]^2)*((5.*^-9*(-9.*^-8*(-6/(E^r^2*r^2) + 
              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/
                  E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2)*
             Cos[theta]^2*Sin[theta]^2 - 
            (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2))/2)*
           (r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
              3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 + 7.500000000000001*^-9*r*(
                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2)*
             (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
                3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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.*^-16*(-6/(E^r^2*r^2) + 
               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
              7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2)*
             (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                3*Sin[theta]^2)))*(2 - 9.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-9*((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
              (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Cos[theta]^2 + 
              (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*(-1 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
           (r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
              3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 + 7.500000000000001*^-9*r*(
                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2)*
             (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
                3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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.*^-16*(-6/(E^r^2*r^2) + 
               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
              7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2)*
             (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                3*Sin[theta]^2)))*(-2 + 9.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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*^-16*Cos[theta]^2*
           (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2)*
             (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
                3*Cos[2*theta])))*Sin[theta]^2*(6.000000000000001*^-8*
             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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^2) - (21*((3*r^2)/E^r^2 - 
                  (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - 
                  (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/
                  E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (1 + 3*Cos[2*theta])))/4 + (-6/(E^r^2*r^2) + 
              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*(2 - 6.000000000000001*^-8*(
                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3) - 3.0000000000000004*^-8*r*(
                -15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 + 7.500000000000001*^-9*r*(
                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2)))/
          (r*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                   E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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*^-16*Cos[theta]*
           (4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
              (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2) - 
            1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-2 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((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*r*(30/(E^r^2*r^3) - 
                (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2)*
             (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
              7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2) + 
            1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
              (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)/4))*Sin[2*theta])/
          (r*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                   E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.5000000000000002*^-8*
           (3.0000000000000004*^-8*(9.*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
              (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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 - 3.0000000000000004*^-8*
               (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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^2) - (3*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-9*
                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(-1 + 3*Cos[2*theta])))*
             (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*(2 + 3.0000000000000004*^-8*
                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-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.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*(2 + 3.0000000000000004*^-8*
                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
             (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 - 3.0000000000000004*^-8*(
                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.0000000000000004*^-8*(
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*(2 + 3.0000000000000004*^-8*
                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
             (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 - 3.0000000000000004*^-8*(
                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.000000000000001*^-8*
             (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
             (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 - 3.0000000000000004*^-8*(
                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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*^-9*(2*(9.000000000000001*^-8*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^6 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                (6*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^3)*(2 + 3.0000000000000004*^-8*
                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2))/r^3)*(1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*(
                3.0000000000000004*^-8*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/
                      E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
                  (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/
                      E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
                  (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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^2)*Cos[theta]^2 + 
                3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
                    (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^2)*((30*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^6 - (30*((6*r)/E^r^2 - (12*r^3)/
                      E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + 
                  (15*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                     3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - 
                  (5*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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^3 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                    (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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^2)*Cos[theta]^2 + 
                7.500000000000001*^-9*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
                    (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3)*((21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/
                      E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                  (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                  (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                    (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                    36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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)*(-2 + 3*Sin[theta]^2) + 
                (((-105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
                   (105*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^5 - (48*(6/E^r^2 - (48*r^2)/
                       E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^4 + (13*((-96*r)/E^r^2 + (144*r^3)/
                       E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
                       (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^3 - (3*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                      12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                        (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                         (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                      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^2 + ((1248*r)/E^r^2 - (1728*r^3)/
                      E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*
                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     36*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))) - 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))) + 6*r*(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))) + 
                     12*r^2*((-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*(-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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                     (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                       (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                    (-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-16*
               (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
              1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 - 6.000000000000001*^-8*(
                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
                3.7500000000000005*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.*^-8*((-3*(-105/(E^r^2*r^3) + 
                 (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*(2 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-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^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.000000000000001*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) - 7.500000000000001*^-9*
                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Sin[2*theta]^2)*
             (-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                 (1 + 3*Cos[2*theta])) + (3*((21*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                 (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                 (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                   (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                   36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*(2 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 
              9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
           (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
           ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
            r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
           (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
           (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                 E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
              (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
           ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/
                E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
             6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
             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)*
          Sin[theta]^2)*(-1/4*(r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 7.500000000000001*^-9*r*
                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)*
              (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(-6/(E^r^2*r^2) + 
                 (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.0000000000000004*^-8*
                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*Sin[theta]^2)*(1 + 
                3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                  3*Sin[theta]^2)))^2) + (7.500000000000001*^-17*
           ((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
            (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                  E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
              3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3)*(2 + 3.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
            3*Sin[theta]^2*(3.0000000000000004*^-8*(-6/(E^r^2*r^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Cos[theta]^2 + 
              (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*(-1 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
          (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
               r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
           1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
             (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
             ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                 (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*
                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
            Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
             (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
             ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
              r^3)*(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*
              (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
               (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
           4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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*^-16*
           ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
            (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                  E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
            ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
              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^2)*
           Cos[theta]^2*(-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
                (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + 
              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2)*
             (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
                3*Cos[2*theta])))*Sin[theta]^2)/
          (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
               r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
           1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
             (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
             ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                 (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*
                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
            Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
             (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
             ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
              r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
              (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
               (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
           4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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*^-16*Cos[theta]*
           (4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
              (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2) - 
            1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-2 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((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*r*(30/(E^r^2*r^3) - 
                (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (-1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (1 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
              7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2) + 
            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
              1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 - 7.500000000000001*^-9*r*(
                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2))*Sin[2*theta])/
          (r^2*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                   E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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*^-16*Cos[theta]*
           (4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
              (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2) - 
            1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-2 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((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*r*(30/(E^r^2*r^3) - 
                (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (6.000000000000001*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                  (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
                 (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((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^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
               (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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)*(2 + 3.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
              3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 + 7.500000000000001*^-9*r*(
                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2))*Sin[2*theta])/
          (r^2*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                   E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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*^-9*(r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
              3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 + 7.500000000000001*^-9*r*(
                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2)*
             (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
                3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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^3) + (15*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
                (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^3*((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.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2) + 
            9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-8*r*(-6/(E^r^2*r^2) + 
              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^3) - 
              (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
              (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2)*
             Sin[2*theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.*^-16*(-6/(E^r^2*r^2) + 
               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
              7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2)*
             (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                3*Sin[theta]^2)))*(-2 + 9.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.500000000000001*^-9*
           (-6.000000000000001*^-8*(9.*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
              (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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 - 3.0000000000000004*^-8*
               (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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^2) - (3*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-9*
                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(-1 + 3*Cos[2*theta])))*
             (-4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2) + 1.8*^-7*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
                1 + 3*Cos[2*theta]) + (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4 + 
                3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                  (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
                1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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*r*(30/(E^r^2*r^3) - 
                  (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                  (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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^2)*(1 + 3*Cos[2*theta])))*
             Sin[2*theta]^2 + 2*Cos[2*theta]*(4*r*(30/(E^r^2*r^3) - 
                (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2) - 1.8*^-7*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
                1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4 + 
                3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                  (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
                1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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*r*(30/(E^r^2*r^3) - 
                  (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                  (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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^2)*(1 + 3*Cos[2*theta])))*
             (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 - 3.0000000000000004*^-8*(
                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.000000000000001*^-8*
             (18*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)^2 + 3*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
                -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((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^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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^2)))*Sin[2*theta]^2*
             (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 - 3.0000000000000004*^-8*(
                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2)*
              (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (2 - 3*Sin[theta]^2)))*(r*(2 - 6.000000000000001*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3) - 3.0000000000000004*^-8*r*
                (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 7.500000000000001*^-9*r*
                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)*
              (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(-6/(E^r^2*r^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2)*
              (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (2 - 3*Sin[theta]^2)))*(3.0000000000000004*^-8*r*
              (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
               (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.000000000000001*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3) - 3.0000000000000004*^-8*r*
                (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 7.500000000000001*^-9*r*
                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2) + 
             (2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 7.500000000000001*^-9*r*
                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)*
              (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.*^-8*r*(-9*(-15/(E^r^2*r^3) + 
                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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^4) - (90*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^6 + (39*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^5 - (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^3) + (9*(-105/(E^r^2*r^3) + 
                  (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + 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^2 + 
                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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)*Sin[theta]^2)/4 + (3*r*
                 (630/(E^r^2*r^4) - (630*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^6 + (297*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^5 - (87*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^4 + (19*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + 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^3 - 
                  (4*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                     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^2 + ((1248*r)/E^r^2 - (1728*r^3)/
                     E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*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))) - 
                    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))) + 6*r*(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))) + 12*r^2*
                     ((-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*(-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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.35*^-15*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
              Sin[2*theta]^2 + 1.35*^-15*r*(-15/(E^r^2*r^3) + 
               (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + 
               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2 + 
             1.35*^-15*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)*(30/(E^r^2*r^3) - 
               (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
               (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2)*
              Sin[2*theta]^2) - r*(r*(2 - 6.000000000000001*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3) - 3.0000000000000004*^-8*r*
                (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
               1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 7.500000000000001*^-9*r*
                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)*
              (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
              Sin[2*theta]^2)*(3.0000000000000004*^-8*(-15/(E^r^2*r^3) + 
               (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
               7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2) + 
             1.*^-8*(3*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + r^3*((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^3) + 
                  (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + 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^2 + 
                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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)*Sin[theta]^2)/4)*
              (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (2 - 3*Sin[theta]^2)) + 4.5*^-16*(-6/(E^r^2*r^2) + 
               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^3) - 
               (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
               (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2)*
              Sin[2*theta]^2))/(2*r^3*(-9.*^-16*(-6/(E^r^2*r^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.0000000000000004*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2)*
              (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                (2 - 3*Sin[theta]^2)))^2)) - 3.0000000000000004*^-8*r*
        (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
         (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/
          r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
           3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
             2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
        ((1.5000000000000002*^-16*r*((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
             r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                 (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
               (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*
                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
            ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
              6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
              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^2)*
           Cos[theta]*Sin[theta]*(-9.*^-8*(-6/(E^r^2*r^2) + 
              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/
                  E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2)*
             Cos[theta]^2*Sin[theta]^2 - 
            (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
               7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2))/2))/
          (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
           1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
             (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
             ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                 (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*
                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
            Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
             (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
             ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
              r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
              (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
               (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
           4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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*^-16*r*
           ((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
            (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                  E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
              3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((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*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2)*
             (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
              7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2) + 
            1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
              (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2)/4)))/
          (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                  (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
           1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
             (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
             ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                 (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*
                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
            Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
             (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
             ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
              r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
              (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
               (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                 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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
           4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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.5000000000000002*^-8*Cos[theta]*Sin[theta]*
           (-1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (1 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
              7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2) + 
            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
              1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 - 7.500000000000001*^-9*r*(
                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2))*
           (r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
              3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 + 7.500000000000001*^-9*r*(
                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2)*
             (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
                3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((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.*^-16*(-6/(E^r^2*r^2) + 
               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                   (4*r^2)/E^r^2) + r^3*((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.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
              7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2)*
             (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
                3*Sin[theta]^2)))*(2 - 9.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.500000000000001*^-9*
           (4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
              (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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^2) - 
            1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-2 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((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*r*(30/(E^r^2*r^3) - 
                (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*(1 + 3*Cos[2*theta])))*
           (1.8*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2 + (1 + 7.500000000000001*^-9*(
                21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2)*
             (2 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 + 7.500000000000001*^-9*r*(
                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2) - 
            3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (4 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
              6.000000000000001*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + 
              3.0000000000000004*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 + 7.500000000000001*^-9*r*(
                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                  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)*Sin[theta]^2) + 6.000000000000001*^-8*
             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
             (Cos[2*theta] - 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^4))*Sin[2*theta])/
          (r*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                   E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.*^-16*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                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)*
             Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.0000000000000004*^-8*Cos[theta]*Sin[theta]*
           (((4.5000000000000006*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                    (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-105/(E^r^2*r^3) + 
                 (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*Sin[theta]^2 + 3*(-15/(E^r^2*r^3) + 
                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
                (2 - 1.2000000000000002*^-7*(3/(E^r^2*r^2) - 
                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
                 3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
                      (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/
                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
                   (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 1.*^-8*r*
                  (30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                    r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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^2) + 1.5000000000000002*^-8*
                  (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*Sin[theta]^2) + (30/(E^r^2*r^3) - 
                 (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                 (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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^2)*(-2 + 6.000000000000001*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                        E^r^2))/r^3) - 1.5000000000000002*^-8*
                  (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*Sin[theta]^2 - 7.500000000000001*^-9*r*
                  (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                    r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/
                       E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                         E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/
                       E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
                       (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                     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)*Sin[theta]^2) + 1.*^-8*
                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/
                        E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                       r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
                    (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                       3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
                    (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                       6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                       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^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
                      (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                      36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*
                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                      9*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))) + 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)*Sin[theta]^2)/
                  4 + r*(3*(90/(E^r^2*r^4) - (90*((3*r^2)/E^r^2 - (2*r^4)/
                         E^r^2))/r^6 + (39*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                        r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
                     (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
                        3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
                     ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                       6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                       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^3) - (3*(630/(E^r^2*r^4) - 
                      (630*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
                      (297*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                          (4*r^2)/E^r^2)))/r^5 - (87*(6/E^r^2 - (48*r^2)/
                          E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2))))/r^4 + (19*((-96*r)/E^r^2 + (144*r^3)/
                          E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
                          (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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^3 - (4*(-96/E^r^2 + (624*r^2)/E^r^2 - 
                         (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                         36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*
                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
                         12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
                          E^r^2)) + 9*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))) + 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^2 + ((1248*r)/E^r^2 - 
                        (1728*r^3)/E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                        144*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/
                          E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*
                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                        36*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))) - 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))) + 6*r*(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))) + 12*r^2*((-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*(-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*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 3.0000000000000004*^-8*
                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*Sin[theta]^2 + 1.5000000000000002*^-8*
                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 
                 3.0000000000000004*^-8*(21/(E^r^2*r^2) - 
                   (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
               9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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.*^-8*(-1.8*^-7*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
              6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(1 + 1.*^-8*(-6/(E^r^2*r^2) + 
                  (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
                   r^2) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*Sin[theta]^2) + (-6/(E^r^2*r^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                -2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + 
                  (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
                   r^3) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*Sin[theta]^2 - 7.500000000000001*^-9*r*
                 (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                         (4*r^2)/E^r^2)) + 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^2 + 
                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                    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)*Sin[theta]^2))*
             ((3*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)) + 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^2 + 
                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*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))) + 
                   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)*(2 + 3.0000000000000004*^-8*
                  (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                   ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-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^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.000000000000001*^-8*(3/(E^r^2*r^2) - 
                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) + 7.500000000000001*^-9*
                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
             Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                 r^3*((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.0000000000000004*^-8*Sin[2*theta]*
           ((3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                     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)*(1.*^-8 - 3.0000000000000004*^-8*
                    Cos[2*theta]))/4) + 6.000000000000001*^-8*
               (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
                2*Cos[2*theta] + 6.000000000000001*^-8*r*(-6/(E^r^2*r^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Cos[2*theta] - 3.0000000000000004*^-8*
               (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^3) + 
                  (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
                  (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
                      E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
                    (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
                        (4*r^2)/E^r^2)))/r^2)*Cos[2*theta]))*
             (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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)*Sin[theta]^2 - 3.0000000000000004*^-8*(
                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                     E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.*^-8*(9.*^-8*(3/(E^r^2*r^2) - 
                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
              (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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 - 3.0000000000000004*^-8*
               (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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^2) - (3*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-9*
                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*(-1 + 3*Cos[2*theta])))*
             (-3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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.500000000000001*^-9*
                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                    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)*Sin[theta]^2) + 
              9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((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.*^-8*r*(-6/(E^r^2*r^2) + 
                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
                30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                  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^2)*Sin[2*theta]^2 + 
              3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
                   (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
                3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                   r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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^2) + 
                  (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((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.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - 
               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 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)*
              Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - 
               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - 
                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
                   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)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
                  r^3*((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
