(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
        (1 - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
              r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
              (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
              (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(
                -1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
           (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
             48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
             8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
             16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
                (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
         3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
            r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
             2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
          (-1 + 3*Sin[theta]^2))*
        ((-1.*^-12*((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2)/4 + 3*((3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2))^2)/
          (-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2)^2 - 
         (1.*^-6*(-5.*^-7*(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta]) + 
               (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                  (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2)^2 + 
            (-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2)*((3*((21*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^5 - (21*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (9*(48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^3 - (2*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                 (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
                    E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
                   16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
                Sin[theta]^2)/4 + 3*((3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^5 - (3*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^3)*(1 - 3*Sin[theta]^2))))/
          (-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2)^2))/Sqrt[2] + 
      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(42/(E^(r^2/4)*r) - 
           (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
           (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
              2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
           (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
           (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
             48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
             8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
             16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
                (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
         3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
            r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
             2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
          (-1 + 3*Sin[theta]^2))*
        ((5.*^-7*(7.5*^-7*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
                2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   2))/r)*((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r))/4 + 3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)) + 
            3.*^-6*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)*
             ((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r))/4 + 3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)) - 
            (7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r) - Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-3 + 
                Csc[theta]^2))*((3*((-105*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^6 + (105*((24*r^2)/E^(r^2/4) - 
                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^5 - (48*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*(48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^3 - (3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                 (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
                    E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
                   16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r))/4 + 
              3*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                (6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^3)*(-3 + Csc[theta]^2))))/
          (7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-3 + Csc[theta]^2))^2 - 
         (5.*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
            1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) + 
            7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
                2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
            6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
               r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-3 + Csc[theta]^2))*((3*((21*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
                  (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
                  (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                 (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                 8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                 8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    2))/r)*Sin[theta]^2)/4 + 
            3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
          (r*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-3 + Csc[theta]^2))*(-2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2)) + (5.*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
            1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) + 
            7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
                2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
            6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
               r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-3 + Csc[theta]^2))*(-9.*^-6*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
              (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2))/2))/(r*(7.5*^-7*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-3 + Csc[theta]^2))*(2 - 9.*^-12*
             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
            ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)*(1 + 3*Cos[2*theta])))*(1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Cos[theta] - Cot[theta]*Csc[theta] + 3*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
          (r*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
       Sqrt[2]))/(Sqrt[2]*r) + 
   (-1/2*(-3.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
             r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - 
             (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - 
            (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
            8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
            2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
         ((1.5*^-6*Cos[theta]*Sin[theta]*(((-6*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                  (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
               (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                 48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                 8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
              (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*
              (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^3) - 
               (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                  (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4))*
            (r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
                 (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
           (r*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
          (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
             ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
               (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
               (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
              (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
            (1.8*^-11*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)^2 + (1 + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2)*(2 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
                 (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2) - 3.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (4 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
               6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                Cos[2*theta] + 3.*^-6*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2) + 6.*^-6*(-12/(E^(r^2/4)*r) + 
               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] - 7.5*^-7*
                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^4)))/((-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
              (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
            (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
          (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
               (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
                4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 3*
                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 2.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-12/(E^(r^2/4)*r) + 
                 (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]^2*Sin[theta]^2 - (3*
                 ((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                    (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                    ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                       r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                       (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                       (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                      (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Sin[theta]^2))/2) + 
             (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3.*^-6*
                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 ((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
                        E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                        E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                       (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                      (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 3.*^-6*
                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 6.*^-6*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (4 - 12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) - 
                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Sin[2*theta]^2)))/(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 - 
          (3.*^-6*Cos[theta]*Sin[theta]*(((4.5*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 ((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                  (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2 + 
                3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (2 - 0.000012*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                       r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                       E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + 2.*^-6*(-12/(E^(r^2/4)*r) + 
                    (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                    (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
                  1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                       r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                       (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                       (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                      (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Sin[theta]^2) + ((-6*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(-2 + 6.*^-6*(6/(E^(r^2/4)*r) - 
                    (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                    ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                       r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
                       (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
                   (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
                        E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                        E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                       (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                      (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                    (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                    (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                        E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                        E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((-312*r)/
                       E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/E^(r^2/4) + 
                      96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                      32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                        (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                        (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                      8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
                  (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                     (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                         E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                         E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + 
                     ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                        E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                         r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2 + 
                  r*(3*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
                      (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                          E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                         E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^3) - 
                    (3*((-105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
                       (105*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                          2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                        r^5 - (48*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                          (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^4 + (13*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + 
                          (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*((-312*r)/
                          E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                          E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                          8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                          r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                       (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
                          E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) - 240*r^2*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                         64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) - 
                          r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 48*r^2*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         8*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 24*r^2*
                          (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                          (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
                          (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
                          2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
                     4)))*(-4 + 1.8*^-11*(6/(E^(r^2/4)*r) - 
                   (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 (1 + 3*Cos[2*theta]) - 3.*^-6*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[theta]^2 + 1.5*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (4 - 12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) - 
                    (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                    (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                        E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
                   Sin[theta]^2) + 9.*^-12*(-12/(E^(r^2/4)*r) + 
                   (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                   (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 6*
                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - 
                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*
                  (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
                       E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                       E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Sin[theta]^2) + (-12/(E^(r^2/4)*r) + 
                 (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
                  (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
                  (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
                       E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                       E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                   (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                   (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2))*
              ((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                  (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
                   (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                     r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                      2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
                ((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] - 
                 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) + 
                 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*
                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Sin[2*theta]^2)))/(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
        r^2*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/
                E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
              2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
          7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
                E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
             r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*
                r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
              (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(
                -1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
              8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
           Sin[theta]^2)*((5.*^-7*(-9.*^-6*(-12/(E^(r^2/4)*r) + 
               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                  (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
               (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                 48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                 8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
              Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
                3*Cos[2*theta])*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
                (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
               1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
           (r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
          (5.*^-7*((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
                 (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
              (3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
                   (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                     r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                      2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-2 + 3*Sin[theta]^2)))/4))*
            (r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
                 (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
           (r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
              (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
          (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
             ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
               (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
               (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
              (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
            (-0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)^2 + 6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)*(1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
               7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
                (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
               1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)))/
           (r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
            (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
          (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
             ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
               (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
               (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
              (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
            (6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
              Cos[2*theta] - ((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*(2 - 6.*^-6*
                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
               3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
               1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)))/
           (r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
            (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
          (1.5*^-6*(3.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2 + (42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
                4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 3*
                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 2.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(-1 + 3*Cos[2*theta])))*(-3.*^-6*
                ((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
                 (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
               ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
              Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
               ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
              (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Sin[2*theta]^2) - (-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
               ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
              Sin[theta]^2*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Sin[2*theta]^2) + 6.*^-6*(3*((3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^2) - 3*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*
                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
                3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Sin[2*theta]^2)^2) - 
          (5.*^-7*r*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (2 - 3*Sin[theta]^2)))*(6*((3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 
                3*Sin[theta]^2)*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
                 (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                  (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                  (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) + 
              2*(-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                3*r*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
                  (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                  (6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^3) + (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                   (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
                 2 + (3*r*((-105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
                   (105*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                   (48*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                   (13*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
                   (3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                       E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                      8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                   (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
                      E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                     48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
                        (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
                        2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/4)*
               (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
              0.000027*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
              0.000027*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)*((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Sin[2*theta]^2) - (r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
                 (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                  (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                  (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)*(-1 + 
                3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
              1.3499999999999999*^-11*r*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
                -12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
             (3.*^-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*(
                1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[theta]^2) + 1.*^-6*(3*((3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - 
                (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                   (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4)*
               (1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(2 - 3*Sin[theta]^2)) + 
              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Sin[2*theta]^2))/(2*r^2*
            (-9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (2 - 3*Sin[theta]^2)))^2)))/(Sqrt[2]*r) + 
     (-3.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
          r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
            2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
         ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
           8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
           2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
        ((3.*^-12*r*Cos[theta]*Sin[theta]*(-9.*^-6*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
              (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2))/2)*(((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
               r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*
             (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)/4)))/
          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
         (3.*^-12*r*Cos[theta]*Sin[theta]*
           (((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*
             (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)/4))*
           ((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-2 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
         (3.*^-6*r*Cos[theta]*Sin[theta]*
           (-1/2*((((-6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                 (6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                   (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Sin[theta]^2) - 1.*^-6*(-12/(E^(r^2/4)*r) + 
                 (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^2)*
                (3*((3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                   (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^3) - (3*((21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                       2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                    (21*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                        E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + (9*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                        E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
                    (2*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                        E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                         r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                    (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
                       E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
                          4))) - 240*r^2*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                      64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) - 
                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 48*r^2*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                      8*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 24*r^2*(1/(2*E^(r^2/4)) - 
                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r^3*((-5*r)/(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
                         2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
                  4))*(-4 + 1.8*^-11*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 3.*^-6*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 1.5*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (4 - 12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) - 
                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Sin[2*theta]^2)) + 1.*^-6*(((-6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*(
                3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                   (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
                 4))*((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                   (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] - 
                6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) + 
                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
       r^2*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
              r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
             2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
         7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
            r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
              2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
           (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
           (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
             48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
             8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
             16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
                (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
        ((-1.*^-12*((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
                 (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
              (3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
                   (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                     r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                      2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-2 + 3*Sin[theta]^2)))/4))^2)/
          (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
            ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
           (((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*
             (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)/4)))/
          ((2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
         (1.*^-6*(((9.*^-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)^2*
                (1 + 3*Cos[2*theta]) + 3*((3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^5 - (3*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^3)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) + 6*
                Sin[theta]^2*(3.*^-6*((-6*((8*r^3)/E^(r^2/4) - r^5/
                        E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                        E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) - 
                       (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                      (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)^2*Cos[theta]^2 + 3.*^-6*(-12/(E^(r^2/4)*r) + 
                   (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                   (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                   (6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                   (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + 
                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[theta]^2 + 
                 7.5*^-7*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                   (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  ((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                   (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(-2 + 
                   3*Sin[theta]^2) + (((21*((24*r^2)/E^(r^2/4) - (8*r^4)/
                        E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4)))))/r^5 - (21*((48*r)/E^(r^2/4) - 
                       (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (9*(48/E^(r^2/4) - 
                       (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^3 - (2*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                       (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                         r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                    (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
                       E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
                          4))) - 240*r^2*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                      64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) - 
                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 48*r^2*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                      8*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 24*r^2*(1/(2*E^(r^2/4)) - 
                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r^3*((-5*r)/(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
                         2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-1 + 
                    3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                         r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                         E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
              (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Sin[2*theta]^2))/2 - 2.5*^-7*(6*((3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 
                3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) - 
              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                   (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 
              9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Sin[2*theta]^2)*((-3*((21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Cos[2*theta] + 
                6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) - 
                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2))/
      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + 
 ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.5*^-7*(42/(E^(r^2/4)*r) - 
           (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
           (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
              2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
           (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
           (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
             48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
             8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
             16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
                (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
         3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
            r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
             2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
          (-1 + 3*Sin[theta]^2))*
        ((-5.*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
            1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) + 
            7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
                2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
            6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
               r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-3 + Csc[theta]^2))*((3*((21*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
                  (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
                  (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                 (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                 8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                 8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    2))/r)*Sin[theta]^2)/4 + 
            3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
          (r*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-3 + Csc[theta]^2))*(-2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2)) - 
         (1.*^-6*(-((3.*^-6*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-1 + 3*Cos[2*theta]) + 1.5*^-6*(-210/(E^(r^2/4)*r^2) + 
                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)*((3*((21*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4 + 3*
                ((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2))) + 
            (-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2)*((3*((-105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^6 + (105*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                 (48*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                 (13*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
                 (3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                 (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
                    E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
                   16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
                Sin[theta]^2)/4 + 3*((-15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^6 + (15*((24*r^2)/E^(r^2/4) - 
                   (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^5 - (6*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^3)*(1 - 3*Sin[theta]^2))))/
          (-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2)^2 + (5.*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
            1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) + 
            7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
                2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
            6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
               r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-3 + Csc[theta]^2))*(-9.*^-6*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
              (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2))/2))/(r*(7.5*^-7*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-3 + Csc[theta]^2))*(2 - 9.*^-12*
             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
            ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)*(1 + 3*Cos[2*theta])))*(1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Cos[theta] - Cot[theta]*Csc[theta] + 3*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
          (r*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
       Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(42/(E^(r^2/4)*r) - 
           (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
           (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
              2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
           (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
           (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
             48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
             8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
             16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
                (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
         3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
            r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
             2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
          (-1 + 3*Sin[theta]^2))*
        (-1/4*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
              (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) + 
             7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
                  (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
                  (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                 (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                 8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                 8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
               (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
               (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
             6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)*(-3 + Csc[theta]^2))^2/
           (r^2*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r) - Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-3 + 
                Csc[theta]^2))^2) + 
         (7.5*^-13*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
            (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
            ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
           ((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
               (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
               (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                 (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                 8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                 8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    2))/r)*Sin[theta]^2)/4 + 
            3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
          (-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
              r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
             (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
             (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
             (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
                E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
         (1.125*^-12*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
             2 - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
              r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
             (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*
                r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r)*
            (7.5*^-7*r^2*(1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^6 + (297*((24*r^2)/E^(r^2/4) - 
                  (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^5 - (87*((48*r)/E^(r^2/4) - 
                  (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2)))/r^4 + (19*(48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                r^3 - (4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2)))/r^2 + (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - 
                 (128*r^4)/E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) - 240*r^2*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                 64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) - 
                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                 48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                 24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                   (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r^3*
                  ((-5*r)/(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
                   (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
                      (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
                 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                   (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
                  (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                     (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                   (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r) + 
             4*Csc[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2*
              (180/(E^(r^2/4)*r^3) - (90*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^6 + (39*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
               (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^3)*
              (-3 + Csc[theta]^2)) + (2.25*^-12*r^2*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)^2 + 9.000000000000001*^-12*r^2*
              (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-210/(E^(r^2/4)*r^2) + 
               (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
               (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
               (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                 (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                 8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                 8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    2))/r)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 
             1.8*^-11*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)^2*(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 
             9.*^-12*r^2*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)^2*
              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
              (7.5*^-7*r^2*(1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^6 + (297*((24*r^2)/E^(r^2/4) - 
                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^5 - (87*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (19*(48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^3 - (4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                 (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
                    E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
                   16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r) + 2*
                Csc[theta]^2 + 3.*^-6*r^2*(180/(E^(r^2/4)*r^3) - 
                 (90*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
                 (39*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^3)*(-3 + Csc[theta]^2)) - 3.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
                (180/(E^(r^2/4)*r^3) - (90*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^6 + (39*((24*r^2)/E^(r^2/4) - 
                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^5 - (9*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*
                (1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^6 + (297*((24*r^2)/E^(r^2/4) - 
                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^5 - (87*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (19*(48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^3 - (4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                 (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
                    E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
                   16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
                Sin[theta]^2))/4)/(2*r^2*
           (7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                  (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
               (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                 48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                 8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
             Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)*(-3 + Csc[theta]^2))^2) + 
         (7.5*^-7*(4*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) - 
                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) - 
                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
                2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
                3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) - 
                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*(1 + 3*Cos[2*theta])))*Csc[theta]*
           (1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Cos[theta] - Cot[theta]*Csc[theta] + 3*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
           Sin[2*theta])/(r^2*(7.5*^-7*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
         (2.5*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
            1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) + 
            7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
                2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
            6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
               r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-3 + Csc[theta]^2))*(-3*r*(-30/(E^(r^2/4)*r^2) + 
              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
             (1 + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2) + 9.*^-6*(-12/(E^(r^2/4)*r) + 
               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 + 
            9.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) - 
              (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             Sin[2*theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
                3*Cos[2*theta]) - 9*(-12/(E^(r^2/4)*r) + 
                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
          (r^2*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
       Sqrt[2]))/(Sqrt[2]*r) - 
   ((-3.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
          r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
            2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
         ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
           8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
           2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
        ((-3.*^-12*Cos[theta]*Sin[theta]*(-9.*^-6*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
              (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2))/2)*(-0.000018*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
            6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
                4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
              1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2)))/
          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
         (3.*^-12*Cos[theta]*Sin[theta]*(-0.000018*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
            6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
                4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
              1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2))*
           ((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-2 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
            ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (1.8*^-11*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2 + (1 + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2)*(2 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
                42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2) - 3.*^-6*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (4 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
              6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[
                2*theta] + 3.*^-6*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2) + 6.*^-6*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] - 
              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^4)))/((-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
         (1.5*^-12*Cos[theta]*Sin[theta]*
           (((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*
             (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)/4))*
           (-3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
             (1 + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2) + 9.*^-6*(-12/(E^(r^2/4)*r) + 
               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 + 
            9.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) - 
              (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             Sin[2*theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
                3*Cos[2*theta]) - 9*(-12/(E^(r^2/4)*r) + 
                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
          ((2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
         (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
              (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
               4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[2*theta] + 3*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)*(-1 + 2.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-12/(E^(r^2/4)*r) + 
                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]^2*Sin[theta]^2 - 
              (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
                (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - 
                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Sin[theta]^2))/2) + 
            (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3.*^-6*
                 (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                ((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                    r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                      2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
              3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 6.*^-6*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(4 - 
                12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              1.8*^-11*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 - 
         (3.*^-6*Cos[theta]*Sin[theta]*
           (-((((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
                 (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^2)*
                (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                   (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                 (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                    (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                        E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                        E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((-312*r)/
                       E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/E^(r^2/4) + 
                      96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                      32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                        (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                        (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                      8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]^2)/4))*(2 - 9.*^-12*
                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Sin[2*theta]^2)) - r*(((30*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^6 - (30*((24*r^2)/E^(r^2/4) - 
                   (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^5 + (15*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^4 - (5*(48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^3 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r^2)*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[theta]^2) - 1.*^-6*((-6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*(3*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - 
                (3*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                      (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                     (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
                 4) + 1.*^-6*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) - 
                   (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                   (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
                 4) + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                3*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
                  (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                  (6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^3) - (3*((-105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                    r^6 + (105*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                      2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                   (48*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                   (13*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
                   (3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                       E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                      8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                   (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
                      E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                     48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
                        (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
                        2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
                 4))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Sin[2*theta]^2) + 1.*^-6*r*(((-6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*(
                3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                   (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
                 4))*((3*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 
                3*Cos[2*theta] - 6.*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
       r^2*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
              r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
             2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
         7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
            r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
              2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
           (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
           (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
             48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
             8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
             16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
                (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
        ((5.*^-7*(-9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
              (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
              3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
              1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
          (r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
             Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 - 
                3*Sin[theta]^2)))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
         (5.*^-7*((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-2 + 3*Sin[theta]^2)))/4))*
           (r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
                42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
          (r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
             Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 - 
                3*Sin[theta]^2)))*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
            ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
           (6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] - 
            ((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)*(1 + 3*Cos[2*theta])))/4 + (-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*
             (2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
                42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2)))/
          (r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
         (2.25*^-12*Cos[theta]*(4*r*(60/(E^(r^2/4)*r^2) - 
              (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
                2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
                3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) - 
                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*
             (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
          (r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
         (1.5*^-6*(3.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)^2 + (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
               4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[2*theta] + 3*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)*(-1 + 2.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(-1 + 3*Cos[2*theta])))*
             (-3.*^-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
              ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
             Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
                -12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
              ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
             (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Sin[2*theta]^2) - (-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
                -12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
              ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
             Sin[theta]^2*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Sin[2*theta]^2) + 6.*^-6*(3*((3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
                -12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2) - 3*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
             (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Sin[2*theta]^2)))/
          (r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) - 
         (2.5*^-7*(2*(9.*^-6*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta]) + 
              3*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                (6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^3)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) + 
              6*Sin[theta]^2*(3.*^-6*(60/(E^(r^2/4)*r^2) - 
                  (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                  (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                  (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]^2 + 3.*^-6*(-12/(E^(r^2/4)*r) + 
                  (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 - 
                  (30*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                  (15*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                  (5*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + 
                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[theta]^2 + 
                7.5*^-7*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*((21*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-2 + 
                  3*Sin[theta]^2) + (((-105*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^6 + (105*((24*r^2)/E^(r^2/4) - 
                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 - (48*((48*r)/E^(r^2/4) - 
                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*(48/E^(r^2/4) - 
                      (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^3 - (3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                      (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                      8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                   (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
                      E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                     48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
                        (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
                        2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-1 + 
                   3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                        r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                        E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
             (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(1 - 
                3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Sin[2*theta]^2) + 1.*^-6*((-3*(-210/(E^(r^2/4)*r^2) + 
                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                   (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 
                3*Cos[2*theta] + 6.*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Sin[2*theta]^2)*(-6*((3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 
                3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) + 
              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                   (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 
              9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2))/
      (2*Sqrt[2]*r) - 
     (r^2*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
              r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
             2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
         7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
            r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
              2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
           (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
           (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
             48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
             8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
             16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
                (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
        (-1/4*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
                 (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)^2/
           (r^4*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (2 - 3*Sin[theta]^2)))^2) + 
         (7.5*^-13*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
            (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
            ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
           ((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-2 + 3*Sin[theta]^2)))/4)))/
          (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
             (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
             (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
             (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
                E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
           6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
              r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
            (1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
            (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
         (2.25*^-12*((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
            (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
            (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*
                r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  2)))/r^3 + (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + 
              (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
                r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
              2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
           (-3.*^-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
            ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/
          (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
             (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
             (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
             (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
                E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
           3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
              r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
            (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
            (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
         (2.25*^-12*Cos[theta]*(4*r*(60/(E^(r^2/4)*r^2) - 
              (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
                2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
                3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) - 
                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (-0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2 + 6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
              1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2))*Sin[2*theta])/
          (r^2*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
         (2.25*^-12*Cos[theta]*(4*r*(60/(E^(r^2/4)*r^2) - 
              (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
                2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
                3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) - 
                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] - 
            ((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)*(1 + 3*Cos[2*theta])))/4 + (-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*
             (2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
                42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2))*Sin[2*theta])/
          (r^2*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
         (2.5*^-7*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
                42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
           (-3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
             (1 + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2) + 9.*^-6*(-12/(E^(r^2/4)*r) + 
               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 + 
            9.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) - 
              (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             Sin[2*theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
                3*Cos[2*theta]) - 9*(-12/(E^(r^2/4)*r) + 
                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
          (r^3*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
             Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 - 
                3*Sin[theta]^2)))*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
         (7.5*^-7*(-6.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)^2 + (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
               4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[2*theta] + 3*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)*(-1 + 2.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(-1 + 3*Cos[2*theta])))*(-4*r*(60/(E^(r^2/4)*r^2) - 
                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2) + 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)^2*(1 + 3*Cos[2*theta]) + (-12/(E^(r^2/4)*r) + 
                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*
                 (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])) - 
              6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
                1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
                1.*^-6*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 
            2*Cos[2*theta]*(4*r*(60/(E^(r^2/4)*r^2) - 
                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) + 
                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*
                 (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])) + 
              6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
                1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
                1.*^-6*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*
               (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Sin[2*theta]^2) + 6.*^-6*(18*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
              3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
                -12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2) - 6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
                -12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2 + r*(60/(E^(r^2/4)*r^2) - 
                  (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                  (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)))*Sin[2*theta]^2*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Sin[2*theta]^2)))/
          (r^2*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) - 
         (-2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (2 - 3*Sin[theta]^2)))*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
                (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
               1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2) + 
           r*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (2 - 3*Sin[theta]^2)))*(3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
               (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
               (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*
              (2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
                 (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2) + (2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
                (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
               1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.*^-6*r*(-9*(-30/(E^(r^2/4)*r^2) + 
                 (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^3) - 3*r*
                (180/(E^(r^2/4)*r^3) - (90*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^6 + (39*((24*r^2)/E^(r^2/4) - 
                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^5 - (9*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^3) + (9*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4 + 
               (3*r*(1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^6 + (297*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^5 - (87*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (19*(48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^3 - (4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                     (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                  (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
                     E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                    48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
                       (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
                         (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
                       2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
                     (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                        (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                      (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/4)*
              (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*
              (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
             1.3499999999999999*^-11*r*(-30/(E^(r^2/4)*r^2) + 
               (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
               (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
             1.3499999999999999*^-11*r*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
               (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
              Sin[2*theta]^2) - r*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
                (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
               1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
            (3.*^-6*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*
              (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2) + 1.*^-6*(3*(-30/(E^(r^2/4)*r^2) + 
                 (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^3) - 
               (3*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4)*
              (1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)*(2 - 3*Sin[theta]^2)) + 4.5*^-12*(-12/(E^(r^2/4)*r) + 
               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) - 
               (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
               (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
               (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
              Sin[2*theta]^2))/(2*r^3*(-9.*^-12*(-12/(E^(r^2/4)*r) + 
                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
              Sin[theta]^2 + (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (2 - 3*Sin[theta]^2)))^2)) - 
       3.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
          r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
            2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
         ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
           8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
           2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
        ((1.5*^-12*r*((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
            (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
            (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*
                r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  2)))/r^3 + (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + 
              (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
                r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
              2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[theta]*
           (-9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
              (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2))/2))/(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
            (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
             (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
             (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
             (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
                E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
           3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
              r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
            (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
            (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) - 
         (2.2500000000000003*^-12*r*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
             r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
            ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[theta]*
           (1 + 3*Cos[2*theta])*Sin[theta]*
           (((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
             (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*
             (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]^2)/4)))/
          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
             (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
             (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
             (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
                E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
           3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
              r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
            (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
            (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
         (1.5*^-6*Cos[theta]*Sin[theta]*(-0.000018*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
            6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
                4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
              1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2))*
           (r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
                42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
          (r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
                r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
             Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 - 
                3*Sin[theta]^2)))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
         (7.5*^-7*(4*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) - 
                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) - 
                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
                2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
                3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) - 
                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*(1 + 3*Cos[2*theta])))*
           (1.8*^-11*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2 + (1 + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2)*(2 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
                42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2) - 3.*^-6*(6/(E^(r^2/4)*r) - 
              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
             (4 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
              6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[
                2*theta] + 3.*^-6*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Sin[theta]^2) + 6.*^-6*(-12/(E^(r^2/4)*r) + 
              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] - 
              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^4))*Sin[2*theta])/
          (r*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
         (3.*^-6*Cos[theta]*Sin[theta]*
           (((4.5*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  r^3)*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2 + 3*
                (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (2 - 0.000012*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + 3.*^-6*(-12/(E^(r^2/4)*r) + 
                   (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                   (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
                 1.*^-6*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) - 
                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) - 
                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Sin[theta]^2) + (60/(E^(r^2/4)*r^2) - 
                 (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                 (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(-2 + 6.*^-6*(6/(E^(r^2/4)*r) - 
                   (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                      r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                   (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                   (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) + 
               1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-9*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
                       r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
                       (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
                       (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                       (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                      (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                      8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
                  4 + r*(3*(180/(E^(r^2/4)*r^3) - (90*((8*r^3)/E^(r^2/4) - 
                        r^5/E^(r^2/4)))/r^6 + (39*((24*r^2)/E^(r^2/4) - 
                        (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (9*((48*r)/E^(r^2/4) - 
                        (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) - 
                       (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^3) - (3*(1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/
                          E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
                      (297*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                         2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (87*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                          E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + (19*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + 
                         (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                      (4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                          E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                         8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                          r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                      (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
                         E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) - 240*r^2*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) - 
                          r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                          r^3/(8*E^(r^2/4))))/2) + 48*r^2*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        8*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 24*r^2*
                         (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
                          (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
                          (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
                          2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
                    4)))*(-4 + 1.8*^-11*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 3.*^-6*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[theta]^2 + 1.5*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (4 - 12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) - 
                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
              6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(1 + 
                1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*
                 (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[theta]^2) + (-12/(E^(r^2/4)*r) + 
                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
                 (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
                 (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                   r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
                  (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                  (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2))*
             ((3*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 
                3*Cos[2*theta] - 6.*^-6*(6/(E^(r^2/4)*r) - 
                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
         (3.*^-6*Sin[2*theta]*((3*r*(-30/(E^(r^2/4)*r^2) + 
                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
                ((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                    r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                      2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
              6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[2*theta] + 6.*^-6*r*(-12/(E^(r^2/4)*r) + 
                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) - 
                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[2*theta] - 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
                3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 6*(-12/(E^(r^2/4)*r) + 
                  (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[2*theta]))*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
               Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Sin[2*theta]^2) + 1.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - 
                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
              (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
               4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[2*theta] + 3*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)*(-1 + 2.5*^-7*(42/(E^(r^2/4)*r) - 
                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(-1 + 3*Cos[2*theta])))*(-3*r*(-30/(E^(r^2/4)*r^2) + 
                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*(1 + 
                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[theta]^2) + 9.*^-6*(-12/(E^(r^2/4)*r) + 
                 (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 + 
              9.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Sin[2*theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
                3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta]) - 
                9*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/
                      E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
                     E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))))/
          (r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2)))/
      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2
